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Pom’s présente : 


pour Apple ][+, lle, Ile+, lc EME 


Éc 


Destiné aux amateurs de mots croisés ou de Scrabble, cette base de données, 
due à Roland Jost, permet de trouver un mot de longueur donnée dont on ne 
connaît que quelques lettres. 


Ordico contient plus de 15000 mots classés en 70 rubriques. 

Recherches et affichages sont rapides : un fichier de 1500 mots est chargé en 
moins de 10 secondes et exploité quasi-instantanément. 

Il est bien sûr possible d'ajouter des termes aux divers fichiers, de créer de 
nouvelles rubriques. 


Voici quelques rubriques : 


1ère face : 

Acteurs, Animaux, Armes/guerres, Auteurs américains, Auteurs anglais, Auteurs français, 
Chimie, Cinéastes, Coureurs cyclistes, Départements/régions, Dieux/déesses, Familles 
végétales, Femmes célèbres, Hommes politiques, Iles, Jeux/sports, Minéraux, Montagnes, 
Musiciens jazz, Musiciens, Parties du corps, Peintres étrangers, Peintres français, 
Rivièreslfleuves, Saints/saintes, Savants/inventeurs, Sculpteurs, végétaux, Vêtements, Villes 
2ème face : 

Athlètes, Boxeurs, Cantartrices, Cols, Cosmonautes, Coureurs automobiles, Déserts, Détroits, 
Doctrines philosophiques, Drogues, Escrimeurs, Explorateurs, Gymnastes, Haltérophiles, 
Judokas, Lutteurs, Maladies, Maréchaux de France, Médicaments, Nageurs, Patineurs, 
Poissons, Présidents américains, Skieurs, Ski nordique, Unités, Villes olympiques 


Exemples : 
Un musicien dont le nom comporte 7 lettres, les 2ème et Sème sont des ‘E”’. Tapez : 


—E- -E- -—, Vous obtenez instantanément : 
BENNETT DEBOECK DELEEUW GEVAERT LESUEUR PEDRELL PEETERS WELLESZ 


Dans les acteurs, -A- — — -E vous donnerait : 
CARETTE PALANCE RACETTE RANDONE RAYMONE VALLONE 
et———-H-: 


CAUCHY CEECHI ENIGHT VAUGHN WRIGHT 
ns dans les femmes célèbres donnerait 32 noms. 


Disquette double face et documentation : 200,00 F franco. Bon de commande page 74 
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Éditorial 


Trait d'union entre la série Il et le Macintosh ? Il ressort de nos premiers contacts avec le 1IGS qu'Apple a 
réussi à construire un système ouvert, pratique comme le Mac, doté de la philosophie Mac, la couleur en 
plus, le 68000 en moins. Le côté évolution de l'Apple Il est à notre sens un atout décisif pour les adeptes 
du prédécesseur : il était malaisé de passer du 6502 au 68000 car il s'agit de deux mondes différents. 
Avec le 65816, on se sent chez soi et, à en croire nos entretiens téléphoniques, nombre d'entre-vous sont 
déjà séduits. La présentation de la page 65 vous en dira plus. 


Le numéro 1 de Pom's est sorti en septembre 81, à 35 F ; plus de cinq ans après, nous sommes hélas 
obligés d'augmenter le prix pour la seconde fois, le numéro passant à 45 F. Le tarif était resté stable 
depuis le numéro 9, ce qui reste honorable, d'autant plus que la densité d'informations s'accroît de 
numéro en numéro : la typographie réduite pour les listings nous permet de vous proposer des 
programmes toujours plus riches. Là où nous pouvions vous proposer une routine à utiliser dans vos 
programmes, un programme complet (sept présentement), d'utilisation aisée, trouve sa place. 


Comme vous le découvrez, ces pages sont très orientées vers la communication. Le Minitel prend la 
dimension d'un phénomène (on parle de deux millions d'appareils en service à la fin de cette année) et 
Pom’s devait s'y consacrer car la gratuité de ce modem nous donne une ouverture vers la 
communication, ouverture qu'il serait dommage d'ignorer. Un système de Téléalarme et des logiciels 
d'enregistrement et restitution des écrans sont au programme : l'utilisation de la prise péri-informatique et 
du modem vous sera bientôt familière. 


Autre aspect de la communication, le protocole XMODEM sous CPIM qui décrit l'art et la manière de 
transmettre des informations avec l'assurance qu'elles sont bien comprises. 


Pour l'Apple !!, deux autres programmes d'utilisation immédiate : l'un pour approcher le FORTH, l'autre 
pour gérer un carnet d'adresses, doté d'une bonne ergonomie. Ce dernier reçoit de façon optionnelle le 
composeur téléphonique des numéros 22123 ce qui forme alors un ensemble intéressant. 


Nous n'abandonnons pas l'aspect utilitaire des routines chères à Pom’s : un crayon optique, pratique, 
sera certainement connecté demain à l'entrée des manettes de jeux de votre lle ou IIc. Autre utilitaire : 
comment éjecter des disquettes 3°5. Pratique également, mais sans rapport, l'application ‘Mise En Page’, 
œuvre d'un auteur passé récemment de l'Apple [| au Macintosh. 


Hervé Thiriez 


Ont collaboré à ce numéro: Alexandre Avrane, Jean-Luc Bazanegue, Bruno Fénart, Boris Fivolewski, Jean-Michel 
Gourévitch, Olivier Herz, Bernard Hoyez, Gérard Michel, Jean-Luc Nail, Fej Nissuorgsky, 
Christian Piard, Jean-François Rabasse, Hervé Thiriez, Georges Zwingelstein. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Éditions MEV. 

Diffusion : N.M.P.P. 

Impression : Rosay - 47, avenue de Paris - 94300 Vincennes. Tél. : (1) 43.28.18.63. 


Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.R.L. Apple, le logo 
Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 





Pom's n° 27 3 


TéléA larme Télématique 


Bernard Hoyez, Jean-Luc Naïl 


e développement 

parallèle de dla 

micro-informatique et 

de la télématique fait 
souvent voisiner Sur une même 
table micro-ordinateur et Minitel. 
En dehors de leur air de famille, 
ils s'ignorent souvent l'un 
l'autre. Il suffit cependant de peu 
de chose pour les marier et que 
naissent des applications 
nouvelles. Celle que nous vous 
présentons s'adresse à un Apple 
//, mais la transposition est 
réalisable simplement sur un autre 
micro-ordinateur ayant un port 
série. 


Peut-on apprendre à notre ordi- 
nateur à téléphoner tout seul, 
c'est-à-dire composer un numéro 
et répondre intelligiblement ? On 
peut envisager par exemple la 
connexion du haut-parleur interne 
sur la ligne téléphonique (par 
l'intermédiaire d'un transforma- 
teur de téléphone). Ce dispositif 
permettrait à l'Apple de servir de 
répondeur téléphonique, en utili- 
sant un programme de synthèse 
vocale par exemple. Malheureu- 
sement, la synthèse et la recon- 
naissance vocales sur un Apple //, 
sans périphérique spécialisé, 
n'offre pas de bons résultats. 
Aussi, notre réalisation n'utilisera 
pas la parole comme moyen 
d'échange, mais le texte. Rangez 
donc votre combiné téléphonique 
dans le placard et sortez votre 
Minitel qui s'avèrera plus adapté 
à la situation. 


Le principe 


Plus qu'un simple dispositif 
d'alarme, cette réalisation est un 
véritable système de contrôle à 
distance d'une installation. Le cas 
choisi ici, un dispositif anti- 
cambriolage, nous servira 


d'exemple, mais vous pourrez 
l'adapter à la surveillance 


d'appareils mécaniques, électri- 
ques ou scientifiques. 


Les acteurs de la pièce sont les 
suivants : 


+ d'un coté l'Apple avec pour 
acolytes des capteurs, des 
relais et un MINITEL ; 

° de l'autre coté, Monsieur X ou 
un complice, Monsieur YŸ, 
comme lui possesseur d'un 
Minitel ; 

* entre les deux, la ligne télépho- 
nique. 


Le scénario se déroule ainsi : 


Acte 1: une maison isolée. 
Arsène Lupin crochète la serrure. 
Au moment où la porte s'ouvre, 
un microcontact se ferme. 
L'Apple, en chien de garde, 
détecte l'ouverture. Aussitôt, il 
compose secrètement le numéro 
de téléphone de Monsieur X. 


Acte 2 : la sonnerie du téléphone 
de Monsieur X retentit. Monsieur 
X décroche le combiné et, dans 
l'écouteur, lui parvient un 
sifflement aigu, quelque chose 
qui lui rappelle le 1700 Hertz de 
l'annuaire électronique. Monsieur 
X a compris et connecte son 
Minitel. Il voit apparaître sur son 
écran une supplique le pressant à 
se manifester. Il frappe sur son 
clavier la réponse souhaitée. 
Alors, un message plus explicatif 
s'offre à ses yeux : le lieu 
d'effraction, la position exacte du 
circuit atteint, l'état de certains 
capteurs. Une question lui est 
enfin posée : doit-il ordonner à 
l'Apple une riposte sur le lieu de 
l'effraction et laquelle ? 


Variante à l'acte 2 : la sonnerie 
du téléphone de Monsieur X 
retentit. Monsieur X est absent. 
Au bout d'une minute, l'Apple 
impatient raccroche, puis 
compose le numéro de Monsieur 
Y, autre familier qui est 
heureusement bien chez lui... etc. 


(cette variante peut être répétée 
jusqu'à épuisement de l'agenda). 
Acte 3: Monsieur X (ou Y) 
déclenche la riposte adéquate en 
tapant le numéro sur son clavier 
(une sirène, les gaz paralysants, 
ou le pulvérisateur d'huile de 
putois, au choix du scénariste). 
Happy end, le voleur est arrêté. 


Le dispositif 


Les éléments nécessaires à la réa- 
lisation du système de téléalarme 
sont les suivants : 


° un Apple ][+ ou, de pré- 
férence, //e (pour le //c c'est 
plus complexe) muni d'une 
carte super-série (SSC entre 
NOUS) ; 

° un Minitel réversible (pres- 
que tous le sont maintenant) ; 

° un petit circuit de compo- 
sition automatique de nu- 
méro semblable à celui 
proposé dans le numéro 22 de 
Pom's ; 

° un certain nombre de micro- 
contacts à aimants (autant 
que de portes ou de fenêtres à 
protéger). Ces micro-contacts 
équipent les dispositifs de 
sécurité. Normalement, en 
veille, ces contacts sont 
fermés. Remplacer l'ampoule 
par une ampoule à contacts 
ouverts lorsque le plot aimanté 
est rapproché. 


Les micro-contacts sont groupés, 
en série, sur une entrée à un bit 
(boutons-poussoirs). Il y a 3 
entrées (PBO, PB1, PB2) sur la 
prise de jeux, vous pourrez donc 
avoir trois groupes différents de 
micro-contacts. 


Vous reliez l'autre borne de 
l'interrupteur au +5 volts (broche 
1 du connecteur interne), via une 
résistance d'environ 1 K£2 pour 
atténuer le courant. 
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Rappelons que les entrées logi- 
ques sont accessibles sur les 
broches 2, 3 et 4 du connecteur 
interne ou sur les broches 7, I et 
6 du connecteur arrière du [le. 


- de 0 à 3 relais, selon les be- 
soins, montés selon le même 
principe que pour le compo- 
seur de numéros. Ces relais 
sont connectés aux sorties- 
témoins ou annonciateurs. Les 
sorties logiques sont acces- 
sibles sur les broches 15, 14, 
13 et 12 du connecteur interne 
(hélas pas sur le connecteur 
arrière). Comme l'une de ces 
sorties est déja occupée par le 
composeur de numéros, trois 
sont encore disponibles (ANI, 
AN? et AN3) ; 


+ de 0 à 4 capteurs à résis- 
tance variable ou potentio- 
mètres de.150 KQ. Ces 
capteurs seront reliés direc- 
tement aux entrées des 
manettes de jeux (GCO, GCI1, 
GC2 et GC3). Dans le 
programme proposé, nous ne 
ferons que lire la valeur prise 
par ce capteur, mais vous 
pouvez bien entendu envisager 
de déclencher l'alarme au-delà 
d'un certain seuil. 


Une application classique peut 
être la détection d'incendie ou de 
gel, à l'aide d'une thermistance. 
Une valeur préconisée pour cette 
thermistance peut être de 15 KQ2 à 
la température ambiante et un 
rapport R 25°/ R 50‘ entre 9 et 
10. Des essais ont montré la 
linéarité de la fonction R = f{ 
PDL (x)). Pour PDL(x) = 255, la 
résistance est environ de 115 
KQ2 


D'autres applications : adapter 
une photo-résistance pour déclen- 
cher en fonction de la lumière 
ambiante, une jauge résistive de 
contrainte en fonction d'un effort 
ou d'une pression, un accéléro- 
mètre en fonction de chocs. 


* une liaison SSC-MINITEL : 
plusieurs solutions s'offrent à 
vous. Se reporter à la 
présentation générale page 53 
et au plan de câblage dans 
l'article Minitel/Apple page 55. 
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Attention si vous êtes bricoleur, 
ne réunissez votre Minitel à votre 
Apple qu'après avoir débranché 
sa prise secteur. Îl ne suffit pas 
de l'éteindre, mais carrément de 
l'écarter du 220 volts, car le 
pauvre n'a qu'une seule tare, il ne 
possède pas de transformateur 
d'isolement. 


La carte SSC est logée dans le 
slot 2. Pour une autre implan- 
tation, quelques modifications 
doivent être apportées au 
programme. 

Enfin quelques réglages prélimi- 
naires permettent de s'affranchir 
de lignes de programmes super- 
flues. Voici la configuration : 








swi sw2 
on on 
sr QUDOUO(] {D000000 
modem 
configuration 
de la carte 
terminal SSC Apple 
Le programme 


Trois sortes de considérations 
sont abordées dans l'écriture du 
logiciel de téléalarme : la gestion 
des entrées/sorties sur le connec- 
teur de jeu, la programmation de 
l'ACIA de la carte super-série et 
enfin l'utilisation du Minitel. 


La prise de jeu, 
prise au sérieux 


Pourquoi chercher plus compli- 
qué ? Le connecteur de jeu offre 
une variété de signaux d'entrées/ 
sorties propre à nous satisfaire. 


Vous pourrez 
trouver, page 53 de 
ce numéro, un 
article sur les 
problèmes 
généraux de liaison 
Apple/Minitel 


À chaque entrée logique est 
associé un commutateur logiciel. 
Leurs adresses-mémoire sont 
-16287 à -16285 ou $C061 à 
$C063. C'est le bit de poids fort 
(bit 7) qui informe de l'état de la 
commutation alors que le reste de 
l'octet est indéfini. 


En Basic, il suffit de lire le 
commutateur avec un PEEK et de 
le comparer avec la valeur 128. Si 
la valeur est égale ou supérieure à 
128, le commutateur est à 1 ou, 
pour notre application, le micro- 
contact est fermé (effraction). 


Pour les entrées analogiques, 
l'Applesoft donne un moyen 
rapide d'évaluation par l'instruc- 
tion PDL, avec pour argument le 
numéro (0 à 3) de la manette. 
Chaque capteur doit évidemment 
être étalonné. 


Pour les sorties logiques (ici les 
relais), la commutation logicielle 
utilise cette fois une paire 
d'adresses, une met l'annoncia- 
teur à 0 tandis que l'autre le met à 
1. Le simple fait d'accèder à une 
adresse (une lecture par exemple) 
suffit pour l'activer. 


Le composeur automatique de 
numéros téléphoniques illustre un 
exemple de leur programmation. 
Les trois paires d'adresses libres 
vont de -16294 ($COSA) à 
-16289 ($COSF). 


L'ACIA, 
du travail en série 


La manière la plus simple 
d'utiliser la SSC est encore de se 
servir du ‘firmware’ de la carte. 
Tapez les commandes PR#2 et 
IN#2 en mode direct, ou précé- 
dées par un CHRS$(4) dans un 
programme Basic, et le tour est 
joué. Tout ce que vous tapez sur 
le clavier de l'Apple est 
instantanément tranféré sur les 
écrans de l'Apple et du Minitel, et 
de même si vous tapez sur le 
clavier du Minitel. 


Le revers de cette facilité est, 
d'une part une certaine lenteur et, 
d'autre part, un manque de 
cautrâle sur les incidences du 
logiciel. Pour ces raisons, nous 
avons préféré programmer direc- 


ement les entrées-sorties de 
l'ACIA (l'ACIA, ou ‘Asynchro- 
nous Communications Interface 
Adapter’ est le circuit intégré 
principal chargé de la ‘sérialisa- 
tion’ et des transferts de don- 
nées). 


Deux registres sont à connaître : 
le registre tampon double d'émis- 
sion/réception et le registre d'état, 
qui ont respectivement leur image 
en mémoire aux adresses $COAB8 
(TDREG / RDREG) et $CO0A9 
(STATUS), si la carte est enfi- 
chée dans le slot 2 (pour l'activer, 
faites un saut en $C200). 


Chaque bit du registre d'état, pris 
isolément, indique l'état de cer- 
tains registres ou de certains si- 
gnaux. Dans notre cas, ce sont 
les bits 3 et 4 qui retiennent notre 
attention. Le bit 3 est positionné à 
1 si le tampon de réception est 
plein. Attention, c'est l'inverse 
pour le bit 4 qui est à 1 si le 
tampon de transmission est vide. 


Pour tester si un caractère est 
entré ou sorti, il suffit de faire 
respectivement un AND $8 ou un 
AND $10 avec l'octet de status et 
d'examiner l'indicateur de zéro. 


Le caractère reçu ou à émettre est 
placé dans la mémoire 9 qui 
intervient dans les transferts entre 
la routine machine et le 
programme Basic. 


Le Minitel, 
agent de liaison 


Le Minitel est un Modem bien 
particulier qui interprète certaines 
séquences de codes pour son 
propre compte. L'ensemble de 
ces mots réservés constitue le 
vocabulaire de la norme Vidéotex 
Télétel détaillée dans la notice 
technique du Minitel ou dans 
quelques ouvrages disponibles en 
librairie. Un, deux, trois, quatre 
ou cinq octets servent à construire 


ces mots. Non seulement, le 
Minitel comprend ce langage, 
mais il y répond parfois en émet- 
tant une séquence appropriée. 


Les principales fonctions du lan- 
gage sont les suivantes : 


+ modifier le mode de fonction- 
nement du terminal (vitesse 
d'échange avec le périphé- 
rique, aiguillage des différents 
modules, connexion et décon- 
nexion...) ; 

+ modifier les caractéristiques de 
visualisation (passage du jeu 
alphabétique au jeu semi- 
graphique, taille et couleur des 
caractères...) ; 

+ _ générer les séquences de codes 
correspondant aux touches de 
fonction (Envoi, Suite, Annu- 
lation...) ; 

indiquer l'état du terminal (vi- 
tesse, aiguillages des modules, 
présence d'une porteuse.) : 

. mettre en marche la procédure 
de correction d'erreurs ; 





Programme ‘TELEALARME" 


HAHAAARÉARARARAHARHAXX 


TELEALARME 


Jean-Luc NAIL 


%Æ Ù Ù * * * 


ef 
* 
* 
* Bernard HOYEZ 
* 
* 
* 


HAKAHRAAAAAAARAAAAXX 


O © + © U # W N Hi 
à 


= N & à Li Où NN Oo 





Ce schéma est extrait du numéro 22 de Pom's 
(“Composition de numéros de téléphone”) 


10 GOSUB 100: 


REM chargement des routine 


s et des variables 


REPONDU" 


20 GOTO 1000: REM programme principal 

30 

100 REM  *** COMMANDES VIDEOTEX *****#*x*#%* 
ELLE LLERELLSSÉES SES SES 

110 ES$ = CHRS$S (27) 

120 EF$ = CHR$S (12): REM EFFACEMENT D'EC 
RAN 

130 RC$ = CHRS$S (10) + CHR$S (13) 

140 DH$ = ESS + CHRS$S (77): REM DOUBLE HA 
UTEUR 

150 FL$ = ES$ + CHR$S (72): REM FLASH 

160 VTS = ESS + CHRS (82): REM FOND VERT 

170 P1$ = ES$ + CHR$S (57): REM PROIL 

180 CO$ = P1$S + CHRS (104): REM CONNEXIO 
N 

190 DES = P1$ + CHR$S (103): REM DECONNEX 
ION 

200 OP$ = P1$ + CHR$ (111): REM OPPOSITI 
ON 

210 =: 

300 REM LE RS MESSAGES  LLLLLLLLESSSSLESÉESS 
LLLLSSÉERSÉESSSRSSESSSESS 

310 ALERTES = EF$ + RC$ + RC$ + VTS + DH$ 
+ FL$ +" ALERTE "+ 

CHRS (31) + "KA" + DH$ + "REPONDEZ E 
ER TRE N TAPANT " + VTS + " OK " 
320 M1$ = EFS$ + RC$ + DH$S + "MERCI D'AVOIR 


+ RC$ + RC$ + "CECI ETAIT UN 


E SIMULATION D'EFFRACTION" + RC$ + RCS$ 
+ "CHEZ MARTIN .." 
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+ télécharger les mémoires vives 
du Minitel ou identifier au 
contraire ces mémoires. 


La connaissance de la norme 
Télétel est indispensable pour 
l'écriture d'un logiciel serveur 
ou, inversement, pour l'ému- 
lation d'un Minitel. Elle présente 
moins d'importance dans notre 
application de téléalarme. Les 
séquences de codes essentielles 
ou les plus usitées ont été 
introduites dans des variables 
chaînes, rassemblées en tête du 
programme. Pour les transmettre, 
il suffit de faire appel au sous- 
programme d'affichage d'une 
chaîne (ligne 800). Retenez 
surtout les séquences de 
connexion (CO$), de déconne- 
xion (DES), d'opposition (OP$) ; 
les autres ne concernent que la 
mise en page des messages. 


Une fois votre dispositif en place, 
vérifiez son bon fonctionnement : 


en dehors de l'alarme, le dia- 
logue entre l'Apple et le Minitel 
s'établit-il lorsque vous validez 
la carte SSC (PR#,IN#) ? ; 
avant d'importuner vos amis, 
testez “en local” la réponse à 
une alarme simulée. Pour cela, 
‘shuntez’ la demande de 
connexion en oblitérant les 
lignes 1080 et 1090. Sup- 
primez l'appel au sous- 
programme de composition de 
numéro téléphonique (ligne 
1050). Pour déclencher l'alar- 
me, utilisez indifféremment le 
micro-contact, la touche @ ou 
le bouton-poussoir. Votre 
Minitel doit alors afficher les 
messages d'alerte auxquels 
vous répondrez sur son 
clavier. Un ‘F’, en haut à 
droite de l'écran précise que 
vous n'êtes pas connecté. 
enfin, assurez vous que l'appel 
téléphonique automatique se 
réalise bien et que le Minitel 
prend la ligne. Rétablissez 


pour cela toutes les lignes du 
programme et ajoutez en 
DATA une liste de vos proches 
amis. Normalement, l'Apple 
affiche le numéro qu'il com- 
pose puis un ‘C’ prend alors la 
place du ‘F’ sur l'écran du 
Minitel. 


Si tous vos essais sont fructueux, 
vous êtes en possession d'un 
système d'alarme bon marché et 
adaptatif dont les performances 
rivalisent avec celles d'appareils 
spécialisés. 

Plus encore, ces quelques lignes 
vous auront peut-être fait décou- 
vrir les immenses possibilités 
d'ouverture de votre ordinateur 
sur le monde extérieur. 








330 M3$ = "MESURE ANALOGIQUE " je 

340 M4$ = "NUMERO DE RIPOSTE (1,2,3) ? " 670 FOR I = 1 TO LEN (X$) 

350: : 680 A = ASC ( MID$ (X$,1,1)) + 128 

400 REM ***X ROUTINES MACHINE *****#**X*%%% 690 POKE 7,A 
KHAHAAHAAAAAAAAARAHAHEX 700 CALL PTT 

410 SLOT = 49664 710 PRINT CHRS$ (A); 

420 ENTRE = 768 720 FOR T = 1 TO 600: NEXT T 

430 AFFICHE = 779 730 NEXT I 

440 PTT = 792 740 RETURN 

450 : 800 REM *** AFFICHAGE D'UNE CHAINE **** 

460 FOR I = 768 TO 832 HHAHÉAXÉARARÉÉALAREHHRX REX 

470 READ X: POKE I,X 810 FOR J = 1 TO LEN (A$) 

480 NEXT I 820 X = ASC ( MID$S (A$,J,1)) 

490 DATA 173,169,192,41,8,173,168, 192,13 830 POKE 9,X 
3,996 840 CALL AFFICHE 

500 DATA 173,169,192,41,16,240,249,165, 850 NEXT J 
9,141,168, 192,96 860 RETURN 

510 DATA 165,7,201,176,144,17,201,186, 870 : 
176,13,41,15,208, 2, 169, 10,170, 32,48,3, 1000 REM *** PROGRAMME PRINCIPAL **XXXX%X% 
202,208,250, 96 LÉRRRSSSESSSSLÉESLESSSS SES ES 

530 DATA 169,159,141,88,192,32,168,252,1 1010 IF PEEK ( - 16287) > 128 THEN PO$% = 
69,108, 141, 89,192, 32,168, 252, 96 1 

540 RETURN 1020 IF PEEK ( - 16286) > 128 THEN P1% = 

S50 :: 1 

600 REM ***COMPOSITION NUMERO *****###4%%% 1030 IF PEEK ( - 16285) < 128 THEN P2% = 
RL LSSRSS SE SES LS SES SES S IT. 

610 HOME 1040 IF NOT (P0$% OR P1% OR P2%) THEN 100 

620 READ X$: IF X$ = "FIN" THEN END 0 

630 POKE 49241,0: REM PRISE DE LIGNE 1050 GOSUB 600: REM APPEL*** 

640 FOR I = 1 TO 700: NEXT I 1060 FOR Q = 1 TO 200: NEXT Q 

650 HOME 1070 CALL SLOT 

660 PRINT : PRINT "Je compose le numéro " 1080 A$ = OP$ + COS 
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1090 GOSUB 800: REM AFFICHAGE 


1100 F1 = 0:F2 = 0 Source'T.ALARME" Assembleur Big Mac 
1110 T = 0 NB : Ce source, sur la disquette d'accompagnement de la 
1120 T =T + 1 revue, est sauvegardé en format ‘TEXT' pour permettre 
la récupération par votre assembleur. 
1130 A$ = ALERTES$ 1 véésesvessessesssesessés 
1140 GOSUB 800 + ‘ 
1150 FOR I = 1 TO 200 D : 
‘1160 CALL ENTRE $ vernreneanememner serre 
= oi = 6 
1170 “ai PEEK (9) = ASC ("O") THEN F1 = Lu LAURE ME 
8 
1180 CALI ENTRE 9 STATUS = $C0A9 Registre d'état carte SSC 
10 DATA - $CoA8 Registre entrée/sortie données 
1190 IF PEEK (9) = ASC ("K") THEN F2 = 11 CHIFFRE =  $7 
1 12 CARACT = $9 -paramètre transfert Basic 
13 SETANO = $co53 sortie binaire paddle mise à 1 
1200 IF F1 AND F2 THEN 1250 14 CLRANO =  $CO58 :sortie binaire paddle mise à 0 
1210 NEXT I 15 WAIT = $FCAB8 routine tempo du moniteur 
16 
1220 IF T > 5 THEN POKE 49240,0 17 ORG $300 
18 
1230 IF T > 10 THEN A$ = DES: GOSUB 800: so nr A EÈLE 


FOR G = 1 TO 500: NEXT G: POKE 49321,1 2 


21 TEST LDA STATUS :Si le bit 3 du registre d'état est à 1 


28: GOTO 1050 22 * ;ceci n'a pas d'utilité dans notre cas 
1240 GOTO 1120 23 AND #08 un caractère est présent 
es: ‘N 24 * ; on aurait le tester r un BEC 
1250 IF P0# THEN S0$ = " CIRCUIT 1 ACTION Sans 7 
NE" + RC$ + RC$S 26 STA CARACT 
1260 IF P1# THEN S1$ = " CIRCUIT 2 ACTION ri 
NE" + RC$ + RCS 29 *----> Sortie de caractère 
= (N 30 
1270 IF P2% THEN S2$ 7 CIRCUIT 3 ACTION 31 LOOP LDA STATUS ;:Si le bit 4 du registre d'état est à 1 
NE" + RC$S + RCS$S 32 AND #$10 son peut transmettre la donnée 
= s pr 33 BEQ LOOP 
1280 EO0$ = STRS$S ( PDL (0)):E1$ = STR$ ( … TES 
PDL (19) :E2$ = STRS ( PDL (2)) :E3$ = 35 STA DATA ;Sortie du caractère 
STR$ ( PDL (3)) 36 RTS 
1290 AS = M1$ + CHR$S (31) + "JA" + DHS + 38 *----> Composition numéro 





VTS + SO$ + S1$ + S2$ + RC$ + RC$ + M3 * 


40 LDA CHIFFRE 

$ + " 1 = " + E0S$ + RC$ + RC$S + M3$S + 41 CMP #"0" 

n 2 = " + E1S$ + RCS + RCS $ M3$ + " 3 ex _ hé a séparateur entre chiffres 

= " + E2$ + RC$ + RC$S + M3$ + " 4 = " 44 BCS SEPARE 

+ E3$ 45 AND #41111 :filtrage 
1300 GOSUB 800 ” re - :chiffre=0 <A>=10 
1310 A$ = RC$ + RC$ + M4$ 48 COMPOSE  TAX 

” = * 
1320 GOSUB 800 DER a ns 
1330 CALL ENTRE 51 DEX 
1340 X# = PEEK (9) - 48 de De 
1350 IF (X$% < 1 OR X$ > 3) THEN 1330 54 s 
55 PULSE LDA #159 :delai de 66 ms 
1360 PRINT PEEK (49241 Li X#%) 56 STA CLRANO ;coupure de la ligne téléphonique 
1370 A$ = RC$ + RC$ + VT$ + " RIPOSTE " + 57 JSR WAIT 
ÿé ” 58 LDA #108 ;delai de 33 

STR$ (X#) LS ACTIONNEE 59 STA SETANO tibia de la ligne téléphoniqu 
1380 GOSUB 800 60 JSR WAIT 
1390 END si AT 
1400 DATA 3541: REM MONSIEUR X Récapitulation ‘ALARME’ 


1405 DATA 35654321 : REM MONSIEUR Y 


1410 DATA FIN Ce code est inclus dans le programme Basic. 





DE EDS DR A ANR UPUGE TR TO TO RSR QU MARIO JO ne car: sun non Var dant tu rot EE Œbné a A JUS RP POAE  PATS UENA NE ROUE NE 


LS 


Accompagné d'une cinquantaine de pages de documentation, Disk Manager permet de recréer les commandes du Dos, 
redéfinir l'organisation d'une disquette, grâce à un jeu d'instructions qui en fait un langage simple d'accès à la disquette. 
Il offre également un programme d'édition à l'aide de commandes évoluées. 4 utilitaires figurent aussi sur la disquette : 


- Utili-disque : reconstruction d'une disquette détruite, Vérification, e 
Plan d'occupation Ôisk Manager 


- Ultra-copie : pour un backup particulièrement rapide eo 
- Edicat : Edition du catalogue, classement des fichiers, Titres. le Dos en Kit 


- Multi-disque : pour le classement de tous vos programmes (tri instantané). 


de Dan Steerey 


PERS TER SE PUCES CN DOC LUN CENT FPE M PS EE ANT EE PNPUE LE GTR NON LP UE EE PSS 


MNT SOUS ON NON A LORS LS 
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Un Carnet d’Adresses 


Boris Fivolewsk1 


ans remplacer les 
carnets d'adresses 
traditionnels, ni avoir 
la prétention d'égaler 
gestion de fiches 





une 
sophistiquée ou un logiciel de 
communication, ce programme 


offre des possibilités 1in- 
téressantes (du moins nous 
l'espèrons) comme la composi- 
tion automatique d'un numéro de 
téléphone. Et surtout, il est écrit 
essentiellement en Basic ; vous 
pourrez donc le modifier facile- 
ment en fonction de vos besoins. 


Mode d'emploi 


La gestion du fichier d'adresses 
est volontairement simplifiée pour 
permettre une utilisation du 
programme aussi bien en DOS 
3.3 ou en ProDOS. 


Vous devez avoir sur la même 
disquette le programme CARNET 
et les deux fichiers ADRESSES 
et INDEX. S'il n'y a pas de 
fichier INDEX sur la disquette un 
nouveau carnet est créé au 
démarrage. Vous ne devez pas 
par la suite retirer la disquette du 
lecteur, les données étant lues au 
fur et à mesure en fonction des 
commandes, ce qui permet 
d'avoir des fichiers très 
importants (avec un unidisk par 
exemple) qui ne pourraient tenir 
entièrement en mémoire vive. Sur 
une disquette 5" 1/4 la limite est 
d'environ 400 fiches, mais avec 
d'autres supports vous pouvez 
aller jusqu'à 1200 fiches. 


Attention : le fichier CARNET de 
type Basic est facilement conver- 
tible en ProDOS à l'aide des 
Utilitaires Système. Il n'en est 
pas de même pour les fichiers 
ADRESSES et INDEX qui sont à 
accès relatifs. Choisissez donc, 
avant d'enregistrer quoi que ce 
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. Recherche d'une fiche 


. Modification d'une fiche i 


. Suppression d'une fiche 


. Composition automatique 


. Nouveau carnet 


. Quitter le programme H 





soit, le système d'exploitation 
que vous utiliserez. Le passage 
de l'un à l'autre étant délicat par 
la suite. 


Description 
des commandes 


Introduction en continu 


Les différentes rubriques sont les 
suivantes : 


° Nom 

+ Prénom 

+ Adresse 

+ Ville 

+ Téléphone 

* Renseignement 

Les rubriques téléphone et rensei- 
gnement peuvent être utilisées par 
exemple pour définir une procé- 
dure de connection automatique à 
un serveur en couplant la com- 
mande 6 (voir ci-après) avec un 
logiciel de communication. 


La rubrique Nom n'accepte que 
les lettres majuscules et les carac- 
tères apostrophe et tiret ; les 
minuscules sont automatiquement 
converties en majuscules ; les 
autres caractères ne sont pas pris 
en compte. Pour les autres rubri- 
ques, il n'y a pas de limitation 
excepté pour les caractères de 
contrôle. 


A 
3 
4 
5. Liste alphabétique 
6 
A 
0 


Pour passer à la rubrique suivante 


utilisez .: ou | . Pour revenir à la 
rubrique (ou champ) précédent 


utilisez Î. 


Dans un même champ vous 
pouvez vous déplacer à l'aide des 
touches + et — . Pour effacer le 
caractère que vous venez de 
taper, utilisez la touche "Delete”. 


Quand le dernier champ est 
complété, la fiche est enregistrée 
sur le disque. Si vous voulez 
retourner au menu principal sans 
enregistrer la fiche, pressez la 
touche ‘Escape’. Sinon, complé- 
tez l'enregistrement puis pressez 


ou ‘Escape’. 


Recherche d'un nom 


Vous pouvez entrer soit le nom 
en entier, soit le nom abrégé suivi 
par un point. Dans le premier cas 
le programme affichera toutes les 
fiches portant le même nom, dans 
le deuxième cas toutes celles 
commençant par le nom abrégé 
quelle que soit la longueur de ces 
noms. 


La recherche se fait dans un 
tableau en mémoire vive, elle est 
donc relativement rapide. Quand 


les numéros des fiches recher- 
chées sont trouvés, le programme 
lit leurs différents champs sur le 
disque. La clef utilisée est de 12 
lettres ; au delà, les noms sont 
considérés comme identiques. 


Quand vous avez trouvé la fiche, 
vous pouvez l'imprimer. 


Modification 
d'une fiche 


La recherche de la fiche se fait de 
la même façon que ci-dessus, 
mais VOUS avez ensuite aCCès aux 
différents champs de la fiche afin 
de les modifier. Les possiblités 
sont les mêmes que pour l'enre- 
gistrement en continu. 


Suppression 
d'une fiche 


La recherche de la fiche se fait de 
la même façon que ci-dessus. 
Avant de supprimer la fiche, le 
programme vous demande de 
confirmer. 


Liste alphabétique 
à partir d'un nom 


La liste commence au nom que 
vous choisissez. Si vous voulez 
lister à partir du début, tapez 
directement 4. Vous pouvez 
interrompre momentanément l'af- 
fichage à l'aide de la barre 
d'espacement. N'importe quelle 
touche permet de reprendre la 
liste. Pour interrompre définiti- 
vement, pressez ‘Escape’. 


Composition 
automatique 


Vous avez sans doute trouvé que 
le programme qui accompagnait 
le composeur automatique de 
numéro de téléphone — Pom's 
numéro 22 pour le //e, 23 pour le 
/Ic — était un peu sommaire. 
L'option 6 permettra d'utiliser 
pleinement le circuit que vous 
aurez construit à cette occasion. 

Si le numéro comprend des 


parenthèses le composeur consi- 
dère les chiffres entrés comme un 


indicatif et il vous demande s'il 
faut le composer ou non. De plus 
vous pouvez ajouter des tempori- 
sations pour attendre une tonalité 
après un indicatif. Le symbole ‘-” 
correspond à une pause d'une 
seconde, le symbole ‘+’ à une 
pause de dix seconde. Exemples : 
° numéro en région parisienne : 
(16 -- 1) 12 34 56 78 (Si 
l'indicatif est composé, la 
pause entre l'indicatif et le 
numéro est de 2 secondes) 
° numéro en province : (16 +-) 
12 34 56 78 (Dans ce cas la 
pause est de 11 secondes) 


Note : le programme, contraire- 
ment à ceux des numéros 22 et 23 
de Pom's, détecte si vous utilisez 
un Apple Ile ou IIc ; vous pouvez 
donc l'utiliser sur une machine ou 
sur l'autre à condition d'avoir 
réalisé le circuit correspondant. 


Création d'un 
nouveau carnet 


Cette commande permet d'effacer 
totalement un carnet pour en créer 
un nouveau. À utiliser avec 
prudence. 


Description 
technique 


Les caractères 
spéciaux avec la 
carte 80 colonnes 


Le programme utilise largement 
les possibilités des divers carac- 
tères de contrôle qu'autorise la 
carte 80 colonnes. Les caractères 
de contrôle qui suivent sont uti- 
lisables avec la fonction PRINT 
dès que l'on a fait PR#3. 


Tabulation : 


+ BS$ = CHRS(8) : curseur un 
cran à gauche ; 

+ _FS$ = CHR$(28) : curseur un 
cran à droite ; 

e VT$S = CHRS$(31) : curseur 
une ligne au dessus (même 
position horizontale) ; 

°_LF$ = CHR$(10) : curseur une 
ligne au dessous (idem). 


Effacement : 
Ê CHR$(26) : effacement de la 


ligne ; 

+ CHRS$(11) : effacement jus- 
qu'en bas de l'écran ; 

+ CHR$(29) : effacement jus- 
qu'en fin de ligne. 


Mode d'affichage : 


* CHR$(18) : affichage en 80 
colonnes ; 

+ CHRS$(17) : affichage en 40 
colonnes (mais gestion par la 
carte 80 colonnes) ; 

+ CHRS$(21) : retour à l'affi- 
chage normal en 40 colonnes. 


Les icônes souris : 

+ I$ = CHR$(15) : mode in- 
verse ; 

+ _N$ = CHRS(14) : Mode nor- 
mal ; 

+ IC$ = CHRS$(27) + I$ : mode 
icône puis mode inverse ; 

° _NI$ = CHR$(24) + N$ : fin du 
mode icône puis mode normal. 


Ces caractères permettent de 
modifier plusieurs fois le mode 
d'affichage pendant le même 
PRINT. Sur les anciens //e, les 
icônes n'étant pas disponibles, 
ICS et NI$ n'ont aucun effet. 
Exemple d'utilisation : l'affichage 
de la variable CRS = ICS + "M" 
+ NI$ donnera l'icône 1. 


Note : pour que le programme 
puisse tourner sur un [le non mis 
à niveau, un test est effectué au 
début afin de déterminer si 
l'affichage utilisera ou non les 
possibilités graphiques des icônes 
Souris. 


Les programmes 
en langage machine 


Ces programmes, au nombre de 
quatre, sont chargés par le 
programme en Basic sous forme 
de DATA qui sont ‘POKés’ en 
page 3. Ils sont tous relogeables, 
peu importe donc leur ordre, 
pourvu qu'ils ne se chevauchent 
pas. Les deux premiers sont déjà 
parus dans Pom's, donc seuls les 
sources des deux derniers sont 
listés. 


GER est la routine classique qui 
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accompagne un traitement d'er- 
reur, il est inutile de la présenter. 


COMP assure la même fonction 
que les programmes ‘COMPO- 
SEUR’ déjà cités. Il est par 
contre relogeable et fonctionne 
aussi bien sur le //e ou le //c. 

IN est un input généralisé qui 
permet d'accepter tous les 
caractères. Il est utilisé pour lire 
le fichier ‘ADRESSE’ sans avoir 
de problème avec les virgules ou 
autres. 


curseur. 


G80 est un programme d'entrée 
de caractères en 80 colonnes. Il 
est surtout utile pour éviter les 
inconvénients de la fonction GET 
en 80 colonnes sur un Apple //e, 
en particulier l'interception de la 
touche ‘Escape’ ou la confusion 
entre la flèche droite et le carac- 
tère espace (ces inconvénients 
n'existent pas sur un //c). De 
plus, il permet de redéfinir le 


Les fichiers 


- CARNET 

programme 

ADRESSES et INDEX 
fichiers de données créés à 
l'initialisation 

T.G80 et T.IN 
sources de G80 et de IN 
(ProCODE ou Big Mac) 








Programme ‘CARNET’ 


NB : Les ‘puces’° symbolisent les 
espaces pour simplifier la saisie. 


O0 REM CARNET D'ADRESSES (C) BORIS FIVOLEW 


SKI 1986 
1 REM ======-=====---=--=================== 
10 ONERR GOTO 20000 
20 GOTO 10000 
99 : | 
© 100 REM Entrée d'un mot 
101 REM -----——-----—--- 
110 MA = 1: GOTO 130 
120 MA = 0: GOTO 130 
130 I = 1:C$ = MIDS$S (C$,1,LM):P = PEEK ( 
1403): PRINT C$;: POKE 1403,P 
140 CALL G80:K = PEEK ( - 16384):K = K - 
128 * (K > 127) 
150 IF K = 27 THEN : POP : RETURN 
160 IF K = 10 OR K = 11 OR K = 13 GOTO 26 
0 
170 IF (K = 8 OR K = 127) AND I > 1 THEN 
I = I - 1: PRINT BS$;: IF K = 8 GOTO 1 
40 
180 IF K = 127 THEN P = PEEK (1403):K$ = 
MIDS (C$,I + 1,LM + 1 - I):C$ = MID 
S (CS; LI — 1). KS5 PRINT K$z" Weiss PO 
KE 1403,P: GOTO 140 
190 IF K = 21 AND I < LM THEN I = I + 1: 
PRINT FS$;: GOTO 140 
200 IF MA AND (96 < K AND K < 123) THEN K 
= K - 32 
210 IF MA AND ((K < 65 OR K > 90) AND K < 
> 32 AND K < > 45 AND K < > 39 AND 
K < > 46) THEN PRINT BLS$S;: GOTO 140 
220 IF K < 32 THEN PRINT BL$;: GOTO 140 
230 K$ = CHR$S (K):C$ = MID$S (C$ + BB$,1, 
I - 1) + K$ + MIDS (CS$,I + 1,LM - I) 
240 I=I +1: IF I > LM THEN K$ = K$ + BL 
$ + BSS:I = I - 1 
250 PRINT KS$;: GOTO 140 
260 L = LEN (CS): IF L = 0 GOTO 290 
270 FOR I = L TO 1 STEP - l: IF MIDS (C 
SL) à À % THEN Lr = Lal = À 
280 NEXT I 


290 


C$ = MID$ (C$,1,L): RETURN 


899; 3 
493 : 


500 


501 


510 


520 


530 


540 
550 


REM Recherche du code d'un nom entre 
deux limites 

REM ===> 
N = 0:J = 0: FOR I = 1 TO NF 

J = J + 1:Y0 = X(J,0):Y1 = X(J,1): 
YO = 0 GOTO 520 

IF (20 < YO OR Z0O = YO AND ZI < = Y1 
) AND (YO < X0 OR YO = X0 AND Y1 < X1) 
THEN N =N + l:N(N) = J 

NEXT I 

RETURN 


IF 


399 + 


600 
601 
610 
620 
630 


640 


650 
660 
670 
680 


Codage d'un nom sur 12 lettres 


= 0: FOR I = 1 TO 12 
7 THEN X0 = J:J = 0 
: REM Ignore blanc,tiret et a 


h 


L = L + 
postrophe 
K$ = MID$ (C$,L,1): 
$ = "à" 
IF ASC (K$) - 64 < 0 GOTO 630 
J = J * 27 + ASC (K$) - 64 
NEXT I:X1 = J 
RETURN 


IF K$ = "" THEN K 


699 : 


700 
701 
710 


720 
730 


740 


REM Lecture d'une fiche 

CALL IN,NO$: CALL IN,PR$: CALL IN, ADS 
: -CALL IN, VIS: CALL IN,TES: CALL IN,RE 
S$: PRINT D$ 

PRINT TMS; 

PRINT "NOM: ";NOS;: POKE 36,41: PRINT 
“Prénom: ";PR$: PRINT "Adresse: ";AD$ 
: PRINT "Ville: ";VIS;: POKE 36,46: PR 
INT "Téléphone: ";TE$: PRINT "Renseign 
ement: ";RES$ 

RETURN 


799 : 
999 : 
1000 REM Insertion d'une fiche 


1001 
1010 NO$ = 


MN <DRS = er ADS = CRSVTS = 


REM 
"ne T 


ES = "U2RES = "n 
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13 


1020 
1021 
1030 
1040 
1050 
1060 
1070 


1080 
1090 


1100 
1101 
1110 
1120 
1130 


1140 
LES50 


1160 


1170 
1180 


1190 
1200 
1201 
1210 
1220 
1230 
1240 
1250 
1260 


1270 
1280 


1290 
1300 
1310 
1320 
1500 
1501 
1510 
1520 
1530 
1540 
1550 
1560 


1570 


1580 


IF PF = MF + 1 GOTO 1070 
FOR I = PF TO MF 
IF X(I,0) = O0 THEN PF = I: GOTO 1080 


NEXT I:PF = MF +1 

PRINT : PRINT BLS$;"Attention le fich 
ier est plein, vous ne pouvez plus in 
sérer de fiche! ";: GET K$: RETURN 
FF = PF 
P = PEEK (37): VTAB 3: HTAB 26: PRIN 
T "Nombre de fiche(s): ";NF: VTAB P + 
1 

REM Entrée d'une fiche 

RE === 
KK = l: GOTO 1170 

IF K = 11 GOTO 1150 

IF KK < > 1 AND KK < > 4 THEN PRI 


NT 

KK = KK + l: GOTO 1170 

KK = KK - l: IF KK = O0 THEN KK = 1: P 
RINT BLS; 

IF KK < > 1 AND KK < > 4 THEN PRI 
NT VTS$; 


HTAB 2: PRINT BS$; 

ON KK GOTO 1510,1540,1550,1560,1570, 
1580 

PRINT TMS; VTS 

REM Enregistrement d'une fiche 

REM 
PRINT DS$"OPEN INDEX, L20" 
PRINT D$"OPEN ADRESSES, L256" 
PRINT DS$"WRITE INDEX,R'"FF 
PRINT X0: PRINT X1 

IF FF < > PF GOTO 1270 
PRINT D$"WRITE INDEX, RO": 
1:NF = NE + 1 

PRINT DS$S"WRITE ADRESSES, R"FF 

PRINT NOS$: PRINT PR$: PRINT ADS$: PRI 
NT VIS: PRINT TES: PRINT RE$ 

PRINT D$"CLOSE" 


PRINT NF + 


X(FF,0) = X0O:X(FF,1) = X1 

IF FF = PF GOTO 1000: REM Insertion 
en continu 

RETURN 

REM Rubriques 

REM -—-------—- 

PRINT "NOM: ";:LM = 35:C$S = NO$: GOS 


UB 110:NO$ = C$ 
GOSUB 600: IF X0 = 
GOTO 1120 

POKE 36,41: PRINT "Prénom: ";:LM = 3 


O0 THEN RETURN 


O0:CS$S = PR$S: GOSUB 120:PR$ = C$: GOTO 
1120 

PRINT "Adresse: ";:LM = 70:C$ = ADS: 
GOSUB 120:AD$ = C$: GOTO 1120 

PRINT "Ville: ";:LM = 38:C$ = VIS: G 
OSUB 120:VIS$ = C$: GOTO 1120 

POKE 36,46: PRINT "Téléphone: ";:LM 
= 22:C$ = TES: GOSUB 120:TES$ = C$: GO 
TO 1120 
LM = 250 - LEN (NO$) - LEN (PRS) - 
LEN (ADS) - LEN (VIS) - LEN (TES): 


LM = 64 * (LM > 64) + LM * (LM < 65): 
IF LEN (RES) > LM THEN PRINT CHRS$S 
(29) > 
PRINT "Renseignement: ";:C$ = RES: G 

OSUB 120:RES$ = C$: GOTO 1120 


REM Recherche et impression d'une fi 


GOSUB 2500 

IF K = 27 OR N = O THEN RETURN 
PRINT : PRINT "Impression de cette f 
iche (O/N) ? ";: CALL G80: PRINT 
K$ = CHR$S ( PEEK ( - 16384)): IF KS$ 
< > "O" AND K$ < > "o" THEN RETURN 


PRINT DS$S;"PR#l":I = 10 

PRINT SEC( I);"M. ";PR$;" ";NO$ 
PRINT SPC( I);AD$: PRINT SPC( I);V 
I$ 

PRINT D$"PR#3" 

RETURN 

PRINT VT$S; VT$ 


REM Recherche des fiches 

REM === 

N = 0: PRINT "NOM: ";:LM = 35:MA = l: 
C$ = NO$: GOSUB 110: PRINT 


GOSUB 600: IF X0 = O THEN PRINT "No 
m incorrect !": GOTO 2510 

ZO = X0:Z1 = X1: IF RIGHTS (C$,1) < 
> "." THEN X1 = X1 + 1:C$ = "portant 
le nom: " + C$: GOTO 2560 

CS = C$ + "[": GOSUB 600: REM Astuce: 


Code ascii suivant celui de Z 
C$ = "commençant par: " + LEFTS (C$, 
LEN (C$) - 1) 

GOSUB 500: IF N = O0 GOTO 2670 

VTAB 3: PRINT "Il y a ";N;" fiches) 

";CS: HOME 

PRINT DS$"OPEN ADRESSES, L256" 

FOR I = 1 TON 

PRINT D$"READ ADRESSES, R'"N(I) 

GOSUB 700 

PRINT : PRINT "Est-ce la fiche que v 
ous recherchez (O/N) ? "; 

CALL G80:K = PEEK ( - 16384):KS = 
CHR$S (K): IF K = 27 GOTO 2680 

IF K$ = "O" OR K$ = "o" GOTO 2680 

IF KS$S < > "N'" AND K$ < > "n" GOTO 
2630 

PRINT VTS;VTS: NEXT I 

PRINT : PRINT "La fiche que vous rec 
herchez n'est pas dans ce fichier.": 
PRINT " Pressez une touche pour reven 
ir au menu: ";: CALL G80:N = 0 

PRINT : PRINT DS$S"CLOSE" 

RETURN 


REM Modification d'une fiche 
REM 
GOSUB 2500 

IFK =27ORN= 


O0 THEN RETURN 
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3030 FF = N(I) 5999 : 


3040 HOME : GOSUB 720 6000 REM Composition automatique 

3050 VTAB 5: GOTO 1100 6001 REÈM ======================= 

3999 # 6010 GOSUB 2500 

4000 REM Suppression d'une fiche 6020 IF K = 27 OR N = 0 THEN RETURN 

4001 REM ======================= 6030 PRINT VTS$; CHRS$ (29) 

4010 GOSUB 2500 6040 L = LEN (TE$) 

4020 IF K = 27 OR N = O0 THEN RETURN 6050 IF L = O0 THEN PRINT "Pas de numéro 

4030 PRINT : PRINT "D'accord pour supprim de téléphone.": GOTO 6500 
er cette fiche (O/N) ? ";: CALL G80: 6060 PRINT "Je compose le numéro: ";: REM 
PRINT Prise de ligne 


4040 K$ = CHR$ ( PEEK ( - 16384)): IF K$ 6070 IF IC THEN POKE 49322,8 
< > "O" AND K$ < > "o" THEN RETURN 6080 IF NOT IC THEN POKE 49241,0 
6090 FOR J = 1 TO 1000: NEXT 


4050 PRINT DS$"OPEN INDEX, L20" 6100 REM Composition 
4060 PRINT DS$S"WRITE INDEX, R"N(I) 6110 FOR I = 1 TO L 
4070 PRINT "O": PRINT "0" 6120 K$ = MID$ (TE$,I,1):K = ASC (K$): P 
4080 PRINT DS$S"WRITE INDEX, RO" RINT KS; 
4090 PRINT NF - 1 6130 IF 47 < K AND K < 58 THEN POKE 6,K 
4100 PRINT DS"CLOSE" _- 48 + 10 * (K = 48): CALL COMP:K$ = 
4110 X(N(I),0) = O:NF = NF - l:PF = NI) "_"; REM Ajoute un délai d'l seconde 
4120 RETURN aprés chaque chiffre 
4999 : 6140 IF K$ = "-" THEN FOR J = 1 TO 1000: 
5000 REM Liste à partir d'un nom NEXT : REM Environ l seconde 
5001 REM ======================= 6150 IF K$ = "+" THEN FOR J = 1 TO 10000 
5100 REM Initialisation : NEXT : REM Environ 10 secondes 
SLOT IREM === 6160 IF K$ < > "(" GOTO 6290 
5110 PRINT "Nom d'origine: ";:LM = 35:C$ 6170 P = PEEK (1403) 
= NO$: GOSUB 110: PRINT : GOSUB 600 6180 PRINT : PRINT "Indicatif (O/N) ? "; 
5120 K = O:FF = 0: FOR I = 1 TO NF 6190 CALL G80:K = PEEK ( - 16384) :K$ = 
5130 K = K + 1:Y0 = X(K,0):Y1 = X(K,1) CHRS$ (K) 
5140 N(K) = O0: IF YO = O0 GOTO 5130 6200 REM Indicatif ? 
5150 IF YO > X0 OR YO = X0 AND Y1 > = X1 6210 IF K = 27 GOTO 6550 
THEN FF = FF + 1:N(K) = 1 6220 IF K$ = "O" OR K$ = "o" GOTO 6280 
5160 NEXT I: IF FF = O0 THEN PRINT : PRIN 6230 IF K$ < > "N" AND K$ < > "“n" GOTO 
T "Il n'y a aucune fiche après ce nom 6190 
111": GOTO 5300 6240 FOR J = I + 1 TO L 
5170 C$ = "de " + C$: IF X0 = 0 THEN C$ = 6250 KS$ = .MIDS (TES,J,1):K = ASC (K$) 
“du début" 6260 IF K$ = ")" THEN J = L:I = I - 1 
5180 VTAB 3: PRINT "Liste de ";FF;" fiche 6270 I = I + 1: NEXT J 
(s) à partir "“;C$: HOME 6280 POKE 1403,P: PRINT VT$; CHR$ (11); 
5190 PRINT D$"OPEN ADRESSES, L256" 6290 NEXT I 
5200 REM Lecture 6400 REM Décrochage 
5201 JREM —------ 6410 PRINT : PRINT CHRS (7) 
5210 FOR I = FF TO 1 STEP - 1 6420 PRINT “Décrochez le combiné avant 
5220 X0 = 987654321:K = 0: FOR J = 1 TO I secondes"; 
5230 K = K + 1: IF N(K) = O0 GOTO 5230 6430 FOR I = 10 TO 1 STEP - 1 
5240 YO = X(K,0):Y1 = X(K,1) 6440 HTAB 28: PRINT SPC( I < 10);1l; 
5250 IF YO < X0 OR YO = X0 AND Y1 < X1 TH 6450 FOR J = 1 TO 1000: NEXT 
EN :X0 = YO:X1 = YI1:N = K 6460 NEXT I 
5260 NEXT J: PRINT D$'"READ ADRESSES, R"N: 6470 PRINT VTS 
GOSUB 700 6480 IF IC THEN POKE 49322,0 
5270 POKE - 16364,0: IF PEEK ( - 16384) 6490 IF NOT IC THEN POKE 49240,0 
= 32 THEN CALL G80 6500 REM Fin 
5280 IF PEEK ( - 16384) = 27 GOTO 5500 6510 PRINT "Pressez une touche pour reven 
5290 N(N) = O0: NEXT I: PRINT : PRINT “Dern ir au menu principal.";: CALL G80 
ière fiche."; 6520 RETURN 
5300 PRINT " Pressez une touche pour reve 6550 REM Escape 
nir au menu: ";: CALL G80 6560 IF IC THEN POKE 49322,0 
5500 REM Fin de la liste 6570 IF NOT IC THEN POKE 49240,0 
SOUL HEM es 6580 RETURN 
5510 PRINT : PRINT D$"CLOSE" 6999 : 
5520 RETURN 7000 REM Créer un nouveau carnet 
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7001 
7010 


7020 


7030 


7040 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 





HOME : PRINT " Attention en créant 

un nouveau carnet vous effacer le pré 
cédent s'il existe.": PRINT " Voulez 
-vous vraiment créer un nouveau carne 


t (O/N): "; 

CALL G80:K$ = CHR$S ( PEEK ( - 16384 
)) 

IF K$S < > "O" AND K$ < > "o" THEN 
RETURN 

PRINT 


REM Destruction éventuelle 
IF LI = 7130 GOTO 7140 

IF LI = 7140 GOTO 7150 
PRINT DS'"DELETE INDEX" 
PRINT D$"DELETE ADRESSES" 
PRINT D$S"OPEN INDEX, L20" 
PRINT D$S"WRITE INDEX, RO" 
PRINT "0": REM Zéro pas "o" 
PRINT DS"OPEN ADRESSES, L256" 
PRINT D$"CLOSE" 

RUN 


7999 : 
9999 : 


10000 
10001 
10002 
10010 
10020 
10030 
10035 


10040 


10045 


10050 


10055 


10060 
10065 


10070 


10075 


10080 


10085 


10090 
10095 


HÉHHAHAAAAAAAAAXAARRARAARAAXE 


DEBUT DU PROGRAMME ** 
REM HARHAAAAAAAARAARARAAAAAREKXR 
TEXT : HOME :D$ = CHR$ (4): PRINT 

D$;"PR#3": REM 80 colonnes 
PRINT : PRINT "POM'S présente:" 


POKE 32,20: PRINT : PRINT 
PRINT MeXkkkece**k*ecoe**k**ecse*esc*se 


REM 


REM A 


LÉLLSSTLSÉESE NL 


PRINT "thessses*ooo*oo*ose*ee**eoe*ee 
Xoocsoscvoo*! 
PRINT "Xeovvoookk*kkeo**k4#ese*eo*e*ee 
*kkesecscoee*!! 
PRINT "*evsovse*evs*se*eo*ocs*es**ee 


Xoscsoeoe*" 

PRINT "okkkkookooo*os*oss*eoe*ess*ee 
XXXXkesee*" 

POKE 32,9: PRINT : PRINT 

PRINT "eokooo*oco*kkooe**kkkeoe*Xx4*e 
co #kkktos eo *#*#*o so ##H*o o XAKKHE © o XXXXN 
PRINT "ookookeso*osc*eo*eve*kee*ess%* 
cokeceveokeccosek*esesoe*oovoeve*! 


PRINT 


cvoktkkesecee***esee*k*kkecee***esves**x*!! 


PRINT 


ee*e0sscev00s0e*oe0vce0o*ee*secevceseee*X! 


PRINT 
co X*kkktoo*kkH+s 0e * 44% 0 0 *XHKXS 0 À AAA UN 


POKE 32,0: PRINT : PRINT 


kkkeoscece**#N#esNesetse**k*e 


"XeXvovcscce*voce*ovo*cveo*oe*#eo*e 


NXkkocecece*eceekeekk*kkesekece* 


10099 : 


10100 


10101 
10110 


10120 


10130 


PRINT "Veuillez patienter, merci." 
REM Variables principales & caractè 
res spéciaux 

REM === ———— 
I = J:X0 = X1:Y0 = Y1:Z0 = Z1:MF = 5 


00: DIM X(MF,1),N(MF) 
BS$ = CHR$ (8):FS$ = CHRS$ (28):VTS 
CHRS (7) 


CHR$ (14):1IC$ 


= CHR$ (31):BL$S = 
CHR$ (15):N$ = 


I$ = 


10140 


10150 


10160 


10170 


10180 
10190 


10199 : 


10200 
10201 
10210 
10220 


10230 
10240 


10250 


10260 


10270 


10280 


10285 


10290 


10295 


= CHR$ (27) + IS:NIS N$ + CHRS$ ( 


24) 
IC = PEEK (64448):IC = (IC = 0) + ( 
IC = 224) 
BB$ = " 
":BB$ = BB$ + BB$ 
TB$ = " 
":TB$S = TBS$S + TB$ 
TMS = "SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SSSSSSSSSSS":TMS$S = IC$ + TM$ + TM$ + 
NIS$ + CHRS$ (26) 


IF IC GOTO 10200 

TMS = 
= M: TMS = TMS + TMS 

REM Sous programmes en binaire (re 
logeable) 

REM  ===-====-======================= 
GER = 768: REM Gestion d'erreurs 


DATA 104,168,104,166,223,154, 72,152 
» 12796 

IN = GER + 10: REM Input généralisé 
DATA 32,190,222,32,227,223,32,44,21 
3,162,255,232,189,0,2,208,250, 138,16 
0,0,145,131,32,82,228; 72; 1527260724 
45,131,136, 138, 145, 131,162,0,200,104 
;32,226,;229, 96 

G80 = IN + 43: REM GET clignotant en 
80 colonnes 

DATA 165,37,32,193,251,165,36,205,1 
23,4,208,3,173,123, 5, 74,168,141, 84,1 
92,176,3,141,85,192,177, 40,170,138,2 
09,40,208,2,169 

DATA 223,145,40,169,0,24,72,44,0,19 
2,48,11,233,1,208,247,104,233,1,208, 
241,240,227,104,138,145,40,141,16,19 
2,141,84,192, 96 
COMP = G80 + 68: REM 
utomatique 

DATA 166,6,160,0,169,160,140,88,192 
,32,168,252,160,8,169,108,140, 89,192 
32, 168,;252;202,208,:233,96 
FIN = COMP + 25: FOR I = GER TO FIN: 
READ J: POKE I,J: NEXT I 

IF IC THEN POKE COMP + 7,170: POKE 
COMP + 17,170 


Composition a 


10299 ;2 


10300 
10301 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 


Insertion d'une fiche 
Recherche d'une fiche 
Modification d'une fiche 
Suppression d'une fiche 
Liste alphabétique 
Composition automatique 
Nouveau carnet 

Quitter le programme 

NC = 7: DIM CHOIXS(NC): FOR I = 
NC: READ CHOIXS(I): NEXT I 


0 TO 


10399: à: 


10400 
10401 
10410 


REM Lecture du fichier index 


PRINT D$"UNLOCK INDEX" 
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10420 
10430 


10440 
10450 
10460 
10470 


10480 
10490 


PRINT D$"UNLOCK ADRESSES" 
PRINT D$"OPEN INDEX, L20": 
READ INDEX,RO": INPUT NF 
IF NF = 0 GOTO 10490 
K = 0: FOR I = 1 TO NF 
K = K + 1: PRINT D$"READ INDEX, R'"K: 
INPUT X(K,0),X(K,1) 

IF X(K,0) = O0 AND X(K,1) = 
0460 

NEXT I 

PRINT DS$S"CLOSE":PF = 1 


PRINT DS" 


O0 GOTO 1 


10499 : 


10500 
10501 
10510 


10520 


10530 


10540 
10550 
10560 
10570 


10580 
10590 


10600 
10610 
10620 


10630 


10640 
10650 


10660 
10670 
10690 
10700 
10701 


10710 
10720 


10730 





REM Affichage du menu 
TEXT : HOME :HP = 26:VP = 
LD = PT +1 

PRINT TBS$S;: PRINT I$;BB$: VTAB 2: H 
TAB 20: PRINT "CARNET D'ADRESSES (C 
) BORIS FIVOLEWSKI 1986";N$ 

VTAB VP + 1: FOR I = 0 TO NC - 1: H 
TAB HP - 2: PRINT I + l1;". ";CHOIXS( 
I): PRINT : NEXT I 
HTAB HP - 2: PRINT 
VTAB 23: PRINT TMS; 
IF IC GOTO 10590 
PRINT "Tapez un nombre ou utilisez 
les fléches pour choisir une option. 
Puis RETURN. "; 

GOTO 10600 

PRINT "Tapez un nombre ou pressez 
"ICS; "J";NIS;" ou ";ICS;"K";NI$S;" p 
our séléctionner une option.Puis pre 
sser ";ICS;"M";NI$; 

REM *** Entrée du choix *** 

IF PT = OLD THEN GOTO 10630 

VTAB OLD * 2 + VP: HTAB HP: PRINT 
SPC( 26): PRINT : HTAB HP: PRINT " " 
; CHOIXS (OLD) ;" ": HTAB HP: VTAB PT * 
2 + VP: PRINT LEFTS (TB$, LEN (CHO 
IXS(PT)) + 2): HTAB HP: PRINT I$;" " 
; CHOIXS(PT);" ";NIS 


11. = NC:O 


"O0. ";CHOIXS (NC) 


WAIT - 16384,128: POKE - 16368,0: 
K = PEEK ( - 16384) 
OLD = PT 

IF K = 10 THEN PT = PT + 1 - (NC + 


1) * (PT = NC) 


IF K = 11 THEN PT = PT — 1 + (NC + 

1) * (PT = 0) 

IF 47 < K AND K < 49 + NC THEN PT = 
K - 49: IF PT < O0 THEN PT = NC 

IF K < > 13 THEN GOTO 10600 

REM Exécution de la commande 

REM = 

IF PT = NC GOTO 11000 

IF NF = 0 AND PT < > O0 THEN VTAB 


22: PRINT I$;" Commande impossible: 
fichier vide. 
GET K$: PRINT CHR$S (26): GOTO 1060 
0 


HOME : PRINT IS$;BB$: VTAB l: HTAB 2 
: PRINT CHOIXS(PT);: POKE 36,51: PRI 
NT "ESC : Retour au menu général'";N$ 


: POKE 34,3: PRINT : 


PRINT 
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“:N$; :OLD = PT:PT = 0: : 


10740 


10750 
11000 


19999 : 


20000 
20001 
20100 


20200 : 


20210 
20220 
20230 
20240 
20250 
20300 
20301 
20310 
20320 


20330 
20340 


20350 
20390 


20400 


20401 


20410 


20420 


20430 


20440 


20450 


20460 


20470 


ON PT + 1 GOSUB 1000,2000, 3000, 4000 
, 5000, 6000, 7000 

GOTO 10500 

HOME : PRINT CHR$ (21): END 

REM Traitement des erreurs 

REM ======--===2==-----==== 
ER = PEEK (222):LI = PEEK (218) + 
PEEK (219) * 256 

CALL GER 

IF LI = 20230 GOTO 20240 

PRINT DS$; "CLOSE". 

PRINT CHRS$S (7) 

IF ER = 255 THEN PRINT "BREAK EN L 
IGNE ";LI: END 

REM Erreurs initiales 

REM == 

IF (ER = 6 OR ER = 7) AND LI = 1041 
O0 GOTO 10420 

IF (ER = 6 OR ER = 7) AND LI = 1042 
O0 GOTO 7100 

IF ER = 5 AND LI = 10430 GOTO 7100 
IF (ER = 6 OR ER = 7) AND (LI > 700 


O0 AND LI < 8000) GOTO 7100 

IF ER = 4 AND LI = 10410 GOTO 10430 

IF LI > 10000 AND LI < 10500 THEN 
PRINT "Erreur pendant l'initialisati 
on. Recharger le programme.": END 
REM Autres erreurs 
IF ER = 6 OR ER = 7 OR ER = 8 THEN 
PRINT "Carnet d'adresses non trouvé 
.": PRINT "Mettez la bonne disquette 
ou créez un nouveau carnet (option 
2 la 
IF ER = 9 THEN PRINT "Disque plein 
.": PRINT “Créez un nouveau carnet sS 
ur une autre disquette": GOTO 20500 

IF ER = 17 THEN PRINT "Répertoire 
plein.": PRINT "Utilisez une autre d 
isquette": GOTO 20500 

IF ER = 10 THEN PRINT 
rrouillés." 

IF ER = 4 THEN PRINT "Disquette pr 
otégée." 

IF ER = 4 OR ER = 10 THEN PRINT " 
Vous ne pouvez pas modifier les fich 
es": GOTO 20500 

IF ER = 5 THEN PRINT " Fichiers dé 
tériorés ou disquettes échangées": G 
OTO 20500 


"Fichiers ve 





20480 PRINT "erreur. "; 

20500 PRINT "Pressez une touche pour reve 
nir au menu";: CALL G80 

20600 GOTO 10500 

Récapitulation 


Les quatre fichiers binaires utilisés se trouvent 
sous forme de DATAs dans le programme Basic. 


NB : Sources en format ‘TEXT’ sur la disquette Pom’s pour récupération sur votre assembleur. 


Source ‘IN’ 31 DEY 22 BNE old 
32 TXA 23 LDA OURCH 
Assembleur Procode 33 STA (VARPNT),Y 24 old LSR 
: 34 LDX #S00 25 TAY 
ou Big Mac 35 INY 26 STA TXTPAGEI 
36 PLA ZT BCS page 
1 37 JSR MOVSTR 28 STA TXTPAGE2 
2 ORG $0300 38 RTS 29 page EQU * 
3 a (0) 
4 VARPNT EQU $83 31 LDA (BASL),Y 
5 IN EQU $0200 Source ‘T.G80’ 32 TAX 
6 INLIN EQU $D52C 33 boucle  TXA 
7 CHKCLS  EQU SDEBB Assembleur Procode ou ;, CMP  (BASL),Y 
8 CHKOPN EQU $DEBB BigMac 35 BNE curseur 
9 PTRGET  EQU $SDFE3 36 DA fs" 
10 GETSPA EQU $E452 1 * GET 37 curseur STA (BASL),Y 
11 MOVSTR  EQU $E5E2 2 38 
12 3 ORG $380 39 LDA #0 
13 *** Début du code *** 4 40 CLC 
14 5 CH = S24 41 wait0 PHA 
15 JSR CHKOPN 6 CV = $S25 42 waitl BIT KBD 
16 JSR PTRGET 7 BASL = $28 43 BMI touche 
17 JSR CHKCLS 8 OLDCH = $47B 44 SBC #1 
18 JSR INLIN 9 OURCH = $57B 45 BNE waitl 
19 LDX #SFF 10 46 PLA 
20 BCL INX 11 KBD : $CO000 47 SBC #1 
21 LDA IN,X 12 KBDSTRB = $C010 48 BNE wait0 
22 BNE BCL 13 TXTPAGEL = $C054 49 BEQ boucle 
23 TXA 14 TXTPAGEZ = $CO55 50 
24 LDY #$00 15 51 touche PLA 
25 STA (VARPNT),Y 16 BASCALC = $FBC1 52 TXA 
26 JSR GETSPA 17 53 STA (BASL),Y 
5 PHA 18 LDA CV 54 STA KBDSTRB 
28 TYA 19 JSR BASCALC 55 STA TXTPAGEI 
29 LDY #$02 20 LDA CH 56 RTS 
30 STA (VARENT),Y 21 CMP  OLDCH 57 DS  S$3D0-* 





Éjectez les disquettes 3°5 


Brumo IFémart 


gr" = == LA 

Bien qu'un bouton permette de le Démonstration Source Ejection 
faire manuellement, 4 be EE 92,0,0,4,20;3; 141, 27,:35 ORG  $300 
intéressant d'éjecter une disquette RCE TE 
de l'Unidisk 3.5 par programme Ep = qu 
ce se F P Pi 8 20 FOR I = 768 TO 784: READ J: ENTRY EQU O0 
à la manière d'un Macintosh. La POKE I,J: NEXT fée MU 2 
petite routine ci-contre permet de 30 INPUT "SLOT: ";:S: INPUT "DRI _—_—.— PRE 
faire l'opération. VE: ";D:S = (S+192) * 256 x Se à 
La commande d'éjection n'étant ‘° 1F PEEK (S + 7) THEN PRINT ça 03 DA PARLIST 
pas gérée par ProDOS, il faut td FES ON CNRS SE Gi su ERROR 

i 1 60 RTS 
faire appel directement à la carte à, >xr 269, PEEK (54 255) 43 0 a 
interface. Le programme de . x 

Ë à : POKE 770,5 / 256: POKE 779 00 DFB DEVICE 
démonstration donne les quelques ,D .. ee 
lignes à inclure dans votre 60 CALL 768:ER = PEEK (785) LA du à 
programme Basic. 70 IF ER = 40 THEN PRINT "DRIV 00 00 CTRLST DW 0 

a: E NON CONNECTE": END L 
80 IF ER THEN PRINT "ERREUR" FREE “Us 





18 Pom's n° 27 
a 








L’apprenti-FORTHIEer 


Fej Nissuorgsky 


L'“Apprenti-FORTHier” (APF) 
est un système FORTH (interpré- 
teur+compilateur) écrit en 
Applesoft sous DOS 3.3 et prévu 
pour fonctionner en 80 colonnes. 
Il possède de plus l'intérêt de 
visualiser le contenu de la pile de 
DATA et l'état du dictionnaire, et 
permet donc de saisir le fonction- 
nement du langage Forth 


Le langage Forth 


Il fut inventé à la fin des années 
60 et implémenté sur IBM 1130 
par Charles H. Moore. Ses 
premières applications furent 
consacrées à l'astronomie. Forth 
est également un outil privilégié 
dans le développement de la 
ludotique. 


Forth possède un grand nombre 
d'avantages : 


+ facile à utiliser grâce à une syn- 
taxe simple et peu contrai- 
gnante ; l'utilisation crée son 
propre vocabulaire de dialogue 
avec la machine ; 

- efficace car semi-compilé ; il 
est interprété et permet donc 
une programmation agréable ; 
les définitions du vocabulaire 
sont compilées d'où une 
exécution très rapide (sauf 
pour APF car interpréteur et 
compilateur sont écrits et 
compilés en Applesoft, ce qui 
est le pendant de son caractère 
didactique) ; 

- puissant car c'est un langage 
de haut niveau qui permet ce- 
pendant également de manipu- 
ler les données au niveau des 
octets en mémoire. 


Forth ne fonctionne pas avec des 
instructions (comme le Basic, 
Pascal ou les assembleurs). Au 
contraire, l'utilisateur peut ensei- 
gner son langage à la machine en 
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créant des mots, ce vocabulaire 
étant placé dans un dictionnaire. 
Il est très simple de définir un 
mot, qui ne sera reconnu que S'il 
ne fait appel qu'à des mots déjà 
connus : 


: Exemple 1 2 + . ; 


Exemple affiche le résultat de 
1+2 (à noter que, en Forth, tous 
les mots doivent être séparés par 
un espace). Bien entendu, un mot 
peut être effacé avec l'instruction 
FORGET 


Les données manipulées en Forth 
peuvent être des variables ou 
tableaux des constantes, ou 
encore des constantes immé- 
diates. 


Forth est construit autour de deux 


piles : la pile de données ( la seule 
visualuée par APF) et la pile de 
retour, toutes deux bâties selon la 
structure LIFO (Last In First 
Out). 


Forth fonctionne avec la notation 
polonaise inversée, comme cer- 


‘ taines calculatrices : 


1 2 +3 x donne 9. 


La pratique d'APF permet de 
visualiser la pile tout au cours des 
opérations. Conventionnellement, 
on représente entre parenthèses et 
séparés par --- les paramètres sur 
la pile avant et après exécution du 
mot : 


+ (a b --- a + b) 


L'approche interprétée est repré- 
sentée par le dialogue au clavier : 





Help ! 





Voici la marche à suivre pour utiliser ce programme 
d'approche du langage Forth. 


1 Vous êtes le bienheureux possesseur de la disquette 
(AR ONPERTERERE de la revue ? Passez à l'étape 7. 


_ SN Co NO 


A GARDE. APF 
Ar 22-24 
“ DICO. 
T DEMOAPF 
*  MESSAPF 





7 Fe aites RUN GARDE.APF. 


Saisir et sauvegarder le fichier binaire DICO qui contient 
les ordres Forth de base, le noyau. 

Saisir CREDEMO, le sauvegarder, faire RUN 
CREDEMO pour créer le fichier TEXT DEMO.APF. 
Saisir CRÈMESS, le D faire RUN CREME 









Le +3 € 


alors que l'approche compilée est 
représentée par la définition de 
nouveaux mots : 


: CARRE DUP * ; 


Les programmes 
fournis 


CREMESS 


crée et modifie le fichier direct 
MESS APF. L'utilisateur n'a pas 
en principe à travailler avec, sauf 
s'il veut adapter le programme 
APF. 


CREDEMO 


crée et modifie le fichier DEMO 
APF qui contient des exemples de 
séquences. Outre l'aspect dé- 
monstratif, on peut s'en servir 
comme base de petits “program- 
mes” à charger. 


GARDE.APF 


affiche la page de garde et lance 
APF. 


Comment se 
servir d'APF 


Il y a deux modes : 

° normal 

° pas à pas (pause après chaque 
mot d'une même ligne. 


Vocabulaire d'APF 


DEMO charge un des exemples 
du fichier DEMO.APF ; 

INIT réinitialise le Forth (doit 
être en début de ligne) ; 

RAZ réinitialise les piles ; 

CLS efface l'écran ; 

BELL émet un ‘beep” ; 

LISTE MOTS liste les diction- 
naires ; 

MODE commute les modes nor- 
mal et pas à pas ; 

QUITTE arrêt du programme ; 

AIDE affiche un écran d'aide ; 

CARRAY tableau d'octets (n 
CARRAY nom crée un tableau 
de n+1 octets auquel on peut 
accéder par C@ et C!). 





Quelques clefs pour l'utilisation du programme 


PILE PILE 
ORDRE AVANT APRES 
* nl n2 n3 
+ ni n2 n3 
+LOO0P n 
_ nl n2 n3 

n 
À "texte" 
Ÿ nl n2 n3 

MOT définition 
< nl n2 drapeau 
= nl n2 drapeau 
S nl n2 drapeau 
> nl n2 drapeau 
? adr 
q n adr 
@ adr n 
AND nl n2 n3 
C! octet adr 
ce adr octet 
CR 
DROP n 
DUP n nn 
ELSE 
EMIT n 
FORGET 
I n 
IF drapeau 
KEY n 
NOT drapeaul drapeau? 
ŒR nl n2 n3 
OVER nl n2 nl n2 nl 
ROT nl n2 n3 n2 n3 n1 
SWAP nl n2 n2 ni 
THEN 


Se reporter à la bibliographie - 


COMMENTAIRE 


Multiplication de n1l par n2 

Laisse n3 sur la pile 

Somme de ni et de n2 

Laisse n3 sur la pile 

Incrémente l'indice de boucle de n, 
L'exécution reprend au DO correspondant 
tant que l'indice est inférieur à la limite 
Soustrait n2 de n1 

Laisse n3 sur la pile 

Affiche le nombre n suivi d'un espace 
Affiche du texte jusqu'à ” 

Divise nl par n2 (division entière) 

Laisse n3 sur la pile 

MOT est créé dans le dictionnaire, 
l'interpréteur compile la définition, 
chaque ordre de la définition doit exister 
dans le vocabulaire connu 

Indique la fin d'une définition 

Exemple de définition : 

: CARRE DUP * ; 

Compare nl à n2. Sur la pile drapeau sera 
à 1 si n1l<n2 et O0 sinon 

Compare nl à n2. Sur la pile drapeau sera 
à 1 si nl=n2 et O0 sinon 

Compare nl à n2. Sur la pile drapeau sera 
à -1 si nl<>n2 et 0 sinon 

Compare nl à n2. Sur la pile drapeau serä 
à 1 si n1>n2 et O sinon 

Affiche contenu de la mémoire ADR 

Mémorise n à l'adresse adr (n sur 2 octets) 
Empile le contenu de l'adresse adr 

{n sur 2 octets) 

ET logique 

Mémorise l'octet à l'adresse adr 

Empile le contenu de adr 

Affiche un retour chariot 

Supprime le sommet de la pile 

Duplique le sommet de la pile 

De la forme 

<Cond> IF <si vrai> ELSE <si faux> THEN 
Affiche le caractère dont le 

code ASCII est n 

Supprime un nom du dictionnaire et ceux 
définis depuis. ex : FORGET CARRE 

Dans les boucle. Empile l'indice 

ex : DO.I..LOOP' 

Si drapeau est vrai les mots qui suivent sont 
exécutés, sinon ceux qui suivent ELSE le sont. 
Empile code ASCII de la touche frappée 
Inverse le drapeau 

OU logique 

Empile copie de l'avant dernier nombre 
Rotation de la pile (3 cellules) 

Échange des deux cellules en haut de la pile 
Symbolise la fin d'une condition 





Les nombres sont sur deux octets 
(-32768 à +32767), les mots sont 
limités à 16 caractères (154 mots 
maxi) et les phrases à 159 carac- 


tères. 


Les autres mots sont des 
classiques du Forth 79 (voir ta- 


bleau ci-joint) 


Bibliographie 

FIG Forth, distribué par le Forth 
Interest Group 

Forth 79 

TransForth, avec des nombres réels, de 
Paul Lutus 

GraForth, avec de puissantes possibi- 
lités graphiques, de Paul Lutus 
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Liste des mots du Fichier DICO | 86B0- A5 4B 45 59 20 00 1A 86 
dictionnaire de DICO 86B8- AB 43 4C 53 20 00 1B 86 


(créé par CREDICO) 86C0- B1 3A 20 00 1C 86 B9 3B 


(IÈT colonne, puis 2ÈME colonne). 86C8- 20 00 1D 86 C1 49 20 00 
Après avoir saisi ce code 


+ KEY ; 86D0- 1E 86 C7 44 4F 20 00 1F 
_ CLS Sous moniteur, vous le 86D8- 86 CD 2B 4C 4F 4F 50 20 
* : sauvegarderez par 86E0- 00 20 86 D3 49 46 20 00 
/ ; BSAVE DICO.,A$8601,L$19A 86E8- 21 86 DA 54 48 45 4E 20 
< I 8601- 2B 20 00 01 00 00 2D 86F0- 00 22 86 E4 45 4C 53 45 
_ DO 8608- 20 00 02 86 01 2A 20 00 86F8- 20 00 23 86 EB 42 45 47 
+LO0P 8610- 03 86 07 2F 20 00 04 86 8700- 49 4E 20 00 24 86 F4 57 
és JF 8618- OD 3C 20 00 05 86 13 3D 8708- 48 49 4C 45 20 00 25 86 
sin THEN 8620- 20 00 06 86 19 3E 20 00 8710- FD 52 45 50 45 41 54 20 
on ELSE 8628- 07 86 1F 3C 3E 20 00 08 8718- 00 26 87 07 43 4F 4E 53 
“ue BEUTEN 8630- 86 25 41 4E 44 20 00 09 8720- 54 41 4E 54 20 00 27 87 
_… NET 8638- 86 2B 4F 52 20 00 OA 86 8728- 11 56 41 52 49 41 42 4C 
nn on 8640- 32 4E 4F 54 20 00 OB 86 8730- 45 20 00 28 87 1C 43 41 
sal CRE 8648- 3A 44 55 50 20 00 OC 86 8738- 52 52 41 59 20 00 29 87 
Sa LE 8650- 41 44 52 4F 50 20 00 OD 8740- 29 46 4F 52 47 45 54 20 
ai Les 8658- 86 49 4F 56 45 52 20 00 8748- 00 2A 87 36 41 49 44 45 

: CRRAA 8660- 0E 86 51 43 40 20 00 OF 8750- 20 00 2B 87 41 51 55 49 
_— FORGET 8668- 86 5A 43 21 20 00 10 86 8758- 54 54 45 20 00 2C 87 4C 
SWAP AIDE 8670- 63 52 4F 54 20 00 11 86 8760- 4D 4F 44 45 20 00 2D 87 
CR QUITTE 8678- 6A 53 57 41 50 20 00 12 8768- 55 52 41 5A 20 00 2E 87 
EMIT MODE 8680- 86 71 43 52 20 00 13 86 8770- 60 42 45 4C 4C 20 00 2F 
! RAZ 8688- 79 45 4D 49 54 20 00 14 8778- 87 69 4C 49 53 54 45 4D 
- BEL. 8690- 86 82 21 20 00 15 86 89 8780- 4F 54 53 20 00 30 87 71 
un LISTEMOTS 8698- 2E 20 00 16 86 92 2E 22 8788- 49 4E 49 54 20 00 31 87 
A INIT 86A0- 20 00 17 86 98 3F 20 00 8790- 7A 44 45 4D 4F 20 00 32 
@ DEMO 86A8- 18 86 9E 40 20 00 19 86 8798- 87 88 44 


Programme “‘CREDEMO’ Be en = INT ( VAL (NUS)): IF NU < 1 OR NU > 99 


705 VTAB 6: POKE 36,0 
1 REM #*X##RXAX AE ER E RER ARR A AO HAE EE À À À À À À À À À À 710 PRINT : PRINT D$"OPENDEMOAPF, L160":VTS = nn 
2 REM * Creation des phrases pour la commande DEMO x 720 PRINT D$"READDEMOAPF, R"NU 
3 REM * du programme APF * 730 GET X$: IF X$ = CHR$ (13) THEN 740 
4 REM * Fej Nissuorgsky (c) 1985 CHANCELADE 24650 : 735 VT$ = VT$ + X$: GOTO 730 
5 * Le fichier s'appelle DEMOAPF * 740 PRINT DS$"CLOSE": PRINT : PRINT VTS$ 
6 * * 750 PRINT : PRINT "Autre taper <RETURN> Arret taper <&> 
* ": € KEY: IF PEEK (768) < > 13 THEN RETURN 


Ce programme s'appelle CREDEMO 
9 REM HA RE tt où 2 nf où mé oo of of of nf nf of of où fe ft À À À À À À À À À à À À À 


99 REM | 760 GOTO 700 

100 REM Programme Principal 999 END 

101 REM 1000 Q = 45: REM IMPLANTATION DE LA ROUTINE &KEY 

110 GOSUB 1000: GOSUB 56000 1010 FOR I = O0 TO Q - 1: READ 2%: POKE 769 + I,Z$%: NEXT 


120 HOME : PRINT "Ce programme cree le fichier DEMOAPF qu 1020 POKE 1014,1: POKE 1015,3 
1 contient les phrases de demonstration": PRINT "utili 1190 RETURN 
sables par le programme APF (l'APPRENTI FORTHier) sous 1200 DATA 44,0,192,16,251,173,0,192,44,16,192,41,127,141, 


la commande DEMO.": PRINT "Les phrases contiennent au 0,3,201,32,144,14,165,184,24,105,3 
maximum 159 caracteres." 1210 DATA 133,184,165,185,105,0,133,185, 96,201,13,240,238 
121 PRINT "Le nombre de phrases est limite a 99." ,201,8,240,234,76,1,3 
122 PRINT : PRINT "Taper <C> pour CREER une phrase ou <V> 30997 REM 
pour VOIR une phrase": PRINT "<&> pour quitter." 30998 REM ENTREE d'une ligne de 159 caracteres 
130 GET X$:X = ASC (X$): IF X = ASC ("&") THEN END 30999 REM 
140 IF X = 67 OR X = 99 THEN GOSUB 500: GOTO 120 31000 VTAB 2: PRINT : VTAB 19: POKE 36,0: CALL CW: PRINT 
141 IF X = 86 OR X = 118 THEN GOSUB 700: GOTO 120 PM$: INVERSE : PRINT " ";: NORMAL :NC = O:E$ = "":X 
142 GOTO 130 = FRE (0):X = Z 
500 REM CREATION 31010 IF NC = 160 OR X = 13 THEN 31050 
510 HOME : PRINT "CREATION d'une PHRASE": PRINT : INPUT " 31015 VTAB 2: PRINT : VTAB 20 + INT (NC / 80): POKE 36,N 
Numero : ";NUS:NU = INT ( VAL (NU$)): IF NU < 1 OR NU C — INT (NC / 80) * 80 
> 99 THEN 510 31020 & KEY:X = PEEK (768):X$ = CHRS$ (X): IF X < 123 AN 
520 GOSUB 31000:PS$S = "" D X > 96 THEN X = X - 32:X$ = CHRS$S ({X) 
530 FOR I = 1 TO LEN (E$) 31030 IF X = 8 THEN GOSUB 31950 
540 IF MIDS$S (E$,I,1) > CHRS$S (96) AND MIDS$S (ES$,I,1) < . 31040 IF X < > 8 THEN GOSUB 31900 
CHRS$ (123) THEN PS$ = P$ + CHRS ( ASC ( MIDS (ES,I,1)) 31041 GOTO 31010 
— 32): GOTO 550 31050 IF X < > 13 THEN 31000 
545 P$ = P$ + MIDS (E$,I,1) 31060 NC = NC - 1:E$ = MIDS (E$,1,NC): IF RIGHTS (ES$,1i) 
550 NEXT :ES$ = P$ = " " THEN 31060 
560 PRINT D$"OPENDEMOAPF, L160" 31061 RETURN 
570 FOR I = 1 TO LEN (ES$): PRINT DS"WRITEDEMOAPF,R";:NU;" 31897 REM 
:B"I - l: PRINT MIDS$S (ES$,I,1): NEXT 31898 REM on n'a pas tape CTRL-H 
580 PRINT DS"CLOSE": RETURN 31899 REM 
699 REM VOIR 31900 IF NOT (NC = O AND (X = 32 OR X = 13)) THEN 31910 


700 HOME : PRINT "VOIR une PHRASE": PRINT : INPUT "Numero 31906 PRINT BIP$;: IF X = 13 THEN X = 0 
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31907 
31910 
31911 


31930 
31947 
31948 
31949 
31950 
31956 
31960 
31967 
31968 
31969 
31970 


56000 
56010 


56020 
56099 
57000 
57010 


57020 
57030 


57040 
58000 
58001 


58010 


58015 
58016 


58020 
58030 
58040 
58045 
58050 


58060 
58065 
58070 
58080 


RETURN 
IF X < 32 AND X < > 13 THEN PRINT BIP$;: RETURN 
NC = NC + U:E$ = E$ + X$: IF X < > 13 THEN PRINT X 


;: INVERSE : PRINT " ";: NORMAL 

RETURN 

REM 

REM on à tape CTRL-H 

REM 

IF NC = O0 THEN PRINT BIP$;: RETURN 

GOSUB 31970 

RETURN 

REM 

REM Recul 

REM 

VTAB 2: PRINT : VTAB 20 + INT (NC / 80): POKE 36,N 
C - 80 * INT (NC / 80): PRINT " "; CHR$ (8); CHRS$ ( 


8):: INVERSE : PRINT " ";: 
MIDS$S (E$,1,NC): RETURN 
REM INITIALISATION 

DS = CHRS (13) + CHRS (4):PMS$ = 
IP$ = CHR$ (7):CW = - 958 

Z = O:U = 1 
RETURN 
REM CREATION du fichier DEMOAPF la lere fois 

D$ = CHR$ (13) + CHRS$S (4): PRINT D$"OPENDEMOAPF": 

PRINT DS"DELETEDEMOAPF": PRINT DS"OPENDEMOAPF, L160" 

F$ = "": FOR I = 1 TO 159:F$ = F$ + "$": NEXT 
FOR I = O0 TO 99: PRINT D$S"WRITEDEMOAPF,R"I: PRINT F 

S: NEXT 
PRINT DS$S"CLOSE": END 
REM LISTE IMPRIMEE DES PHRASES DE DEMO 
REM LA FIN DU FICHIER EST INDIQUEE PAR LA PHRASE : 

FIN 
TEXT : HOME : PRINT "LISTE IMPRIMEE DES PHRASES DE 

DEMO": PRINT : PRINT "Preparer l'IMPRIMANTE puis tap 

er une TOUCHE ";: GET XS: PRINT XS 


NORMAL :NC = NC - l:ES = 


"Votre phrase :":B 


D$ = CHR$S (13) + CHRS$S (4):NU = 1 

PRINT DS$S"PR#1l": PRINT "Phrases de la commande DEMO" 
: PRINT : PRINT D$"PR#3" 

PRINT : PRINT D$"OPENDEMOAPF, L160":VT$ = "" 

PRINT D$"READDEMOAPF, R"NU 

GET XS$S: IF XS = CHRS (13) THEN 58050 

VTS = VTS + X$: GOTO 58040 

PRINT DS$S"CLOSE": IF VT$S = "FIN" THEN PRINT D$"PR#3 
": END 

PRINT D$"PR#l" 

PRINT : PRINT "Phrase "NU" :": PRINT VTS$S 

PRINT DS$S"PR#3" 
NU = NU + 1: GOTO 58020 





Programme ‘APF 22-4° 


1 REM ht t tt À At À À tt À À À ft où À À 6 tt À to ft À à à 

2 REM * L'APPRENTI FORTHier Version 3.0 = 

3 REM * # 

4 REM * Fej Nissuorgsky (c) 1985 CHANCELADE 24650 ; 

8 REM RAARARRRRRARRRRARAARARÉARRARRRRRRR ARR RAR RAR RÉ RÉ ÉEE 

99 REM 

100 REM Programme Principal 

101 REM 

102 GOSUB 56000: REM Initialisation 

104 GOSUB 57200: GOSUB 1350: REM Etablit l'ecran 

110 GOSUB 11000: GOSUB 51000: REM Met le DICO 

120 SÛ = VR 

130 IF NOT SU THEN 180 

135 X = FRE (0) 

140 GOSUB 31000: IF MIDS$S (E$,1,4) = "DEMO" THEN GOSUB 1 
6000: GOTO 150 

141 IF MIDS (ES$,1,4) = "INIT" THEN GOSUB 350: GOTO 130 

150 IF MIDS (ES,1,2) = ": " THEN GOSUB 20000: GOTO 160 

151 GOSUB 2000 

1 160 IF ER < > O THEN GOSUB 10000 

170 GOTO 130 

180 IF MIDS$S (E$,1,4) = "INIT" THEN RUN 

199 END 

297 REM 

298 REM ENTREE d'une Touche au CLAVIER 

299 REM 

300 INVERSE : PRINT " ";: NORMAL : & KEY:X = PEEK (768): 
X$ = CHR$S (X): PRINT CHR$ (8); CHRS$S (32); CHRS$S (8);: 
RETURN 

350 VTAB 2: PRINT : VTAB 23: PRINT "Confirmer par 'C' ";: 
GOSUB 300: IF X$ = "C" OR X$ = "c" THEN SU = FX: RETU 
RN 


383 

1297 
1298 
1299 
1300 


1347 
1348 
1349 
1350 


1357 
1358 
1359 
1360 


1997 
1998 
1999 
2000 
2011 
2015 
2020 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2039 
2040 


2045 


2050 
2060 


2065 
2070 
2197 
2198 
2199 
2200 
2210 


2215 
2220 


2240 
2297 
2298 
2299 
2300 
2310 
2397 
2398 
2399 
2400 
2410 


2497 
2498 
2499 
2500 
2510 
2520 
2597 
2598 
2599 
2600 
2605 


2610 


2620 
2697 
2698 
2699 
2700 


VTAB 2: PRINT : VTAB 23: CALL CW: RETURN 
REM 

REM Suite Taper Return 

REM 


PRINT "Pour continuer Taper une Touche ";: GOSUB 300 


:T9 = PEEK (37): VTAB 2: PRINT : VTAB T9 + 1: POKE 
36,0: CALL CL: RETURN 

REM 

REM Mode NORMAL 

REM 

VTAB 2: PRINT : VTAB 4: POKE 36,62: PRINT "NORMAL 
":MF = FX: RETURN 

REM 

REM Mode PAS À PAS 

REM 

VTAB 2: PRINT : VTAB 4: POKE 36,62: PRINT "PAS À PAS 
":MF = VR: RETURN 

REM 

REM EXECUTION 

REM 
PR = U 


GOSUB 15000 
0) THEN 2060 


GOSUB 15900: GOSUB 15920:CO = 4: 
IF NOT (PR < LEN (E$) AND ER = 
GOSUB 32000: GOSUB 32090 

IF ER < > Z THEN RETURN 

GOSUB 32200: IF NU < > Z THEN 2034 
GOSUB 32100: IF NU = 99 THEN GOSUB 
ER = 18: RETURN 


3000: GOTO 2039 


IF NU > 29 AND NU < 39 THEN ER = 6: RETURN 

IF NU = 28 THEN ER = 28: RETURN 

IF NU = 29 THEN ER = 27: RETURN 

GOSUB 2200 

IF ER < > Z THEN RETURN 

IF MF THEN GOSUB 15920:CO = 42: GOSUB 15000: VTAB 2 
: PRINT : VTAB 24: GOSUB 1300 

IF MF THEN GOSUB 15900: GOSUB 15920:CO = 4: GOSUB 1 
5000 

GOTO 2015 


Z THEN GOSUB 15920:CO = 42: GOS 
GOSUB 


IF NOT MF AND ER = 
UB 15000: VTAB 2: PRINT : VTAB 24: POKE 36,5: 
1300 

GOSUB 15900: GOSUB 15920:C0 = 4: GOSUB 15000 
RETURN 

REM 

REM Exécution d'un mot 

REM 

IF NU > 99 THEN 2300 

ON NU GOSUB 3100,3200,3300,3400, 3500, 3600,3700,3800, 
3900, 4000, 4100, 4200, 4300, 4400, 4500, 4600, 4700, 4800, 49 
00, 5000, 5100, 5200, 5300, 5400, 5500, 5600, 5700, 5800, 5900 


, 6000 

IF NU < 31 THEN RETURN 

ON NU - 30 GOSUB 6100, 6200, 6300, 6400, 6500, 6600, 6700, 
6800, 6900, 7000, 7100, 7200, 7300, 7400, 7500, 7600, 7700, 78 
00, 7900, 8000 

RETURN 

REM 

REM Exécution d'un mot créé 

REM 

ON PEEK (AD + LM + 3) GOTO 2400,2400,2600,2700 
ER = 18: RETURN 

REM 

REM le mot trouvé est une CONSTANTE 

REM 

GOSUB 15200: IF ER < > Z THEN RETURN 


POKE FN VP(PMY#), PEEK (AD + LM + 4): POKE FN VP(PM 


$) + 1, PEEK (AD + LM + 5): RETURN 
REM 

REM le mot trouvé est une VARIABLE 
REM 


GOSUB 15200: IF ER < > Z THEN RETURN 


T9 = FN VP(PM#): POKE T9, FN RQ(AD + LM + 4) 

POKE T9 + 1, INT ((AD + LM + 4) / 256): RETURN 

REM 

REM le mot trouvé est un TABLEAU (CARRAY) 

REM 
PD = 1: GOSUB 15210: IF ER = Z THEN RETURN 

TP$ = PM$#(PM$): IF TP$ < Z OR TP$8 > PEEK (AD + LM + 
4) - 1 THEN ER = 33: RETURN 

T9 = FN VP(PM$): POKE T9, PEEK (AD + LM + 5 + TP#): 
POKE T9 + U,Z 

RETURN 

REM 

REM Exécution d'un MOT CREE 

REM 

PR$ = l:PR(PR$) = AD + LM + 3 
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Pom's n° 27 





2730 
2735 
2740 


2750 
2751 
2752 
2753 
2760 


2770 
2800 
2820 
2821 
2822 


2825 
2830 
2835 
2840 
2845 
2850 
2855 
2900 


2905 


2906 


2910 
2950 
2955 


2965 
2970 
2997 
2998 
2999 
3000 
3005 
3099 
3100 
3105 


3110 
3199 
3200 
3205 


3210 
3299 
3300 
3305 


3310 
3399 
3400 
3402 
3405 


3410 
3499 
3500 
3510 
3520 
3599 
3600 
3610 
3620 
3699 
3700 
3710 
3720 
3799 
3800 
3810 


3815 
3820 
3899 
3900 
3910 


3920 
3999 
4000 


IF PR$ = Z OR ER < > Z THEN RETURN 
PT = PR(PR$):PR$ = PR$ - 1 

IF PEEK (PT) = 1 OR PEEK (PT) = 2 OR PEEK (PT) = 
3 THEN ON PT GOSUB 2400,2500,2600: GOTO 2730 

IF PEEK (PT) < > 4 THEN 2760 

IF PEEK (PT + 1) = 255 THEN 2730 
GOSUB 15220: IF ER < > Z THEN 2730 
PR(PR$) = PT + 1: GOTO 2730 

IF PEEK (PT) = 128 THEN N = NU:NU = 
GOSUB 2820:NU = N: GOTO 2730 

IF PEEK (PT) = 129 THEN GOSUB 2950 
GOTO 2730 

IF NU > 99 OR NU = 23 THEN 2825 

GOSUB 2210: IF ER < > Z THEN RETURN 
PT = PT + 2: GOSUB 15220: IF ER = Z THEN PR(PR$#) = 
: RETURN 


PEEK {PT + 1); 


PE 


IF ER < > Z THEN RETURN 

IF NU = 23 THEN 2900 

GOSUB 15220: IF ER < > Z THEN RETURN 
PR(PR$) = PT +2 

GOSUB 9000: REM cherche l'adresse du mot cree NU 
GOSUB 15220: IF ER < > Z THEN RETURN 
PR(PR$#) = AD: RETURN 

TP = PEEK (PT + 2): GOSUB 15200: IF ER < > Z THEN 
RETURN 

IF TP < > Z THEN FOR I = U TO TP:PM$#(PM%) = PEEK 
(PT + 2 + I): GOSUB 5000:PM$ = PM$ + U: NEXT 
PM$ = PM$ - U: GOSUB 15220: IF ER < > Z THEN RETURN 


PR(PR$&) = PT + 3 + TP: RETURN 

GOSUB 15200: IF ER < > Z THEN RETURN 
T9 = FN VP(PM$): POKE T9, PEEK (PT + U): 
,; PEEK (PT + 2) 

GOSUB 15220: IF ER < > Z THEN RETURN 


POKE T9 + U 


PR(PR$) = PT + 3: RETURN 

REM 

REM *#*## 99 (immediat) **** 

REM 

GOSUB 15200: IF ER = Z THEN PM$#(PM$) = VN 
RETURN 

REM ####% +  *#4% 

PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 


TP = PM$#(PM$) + PM#(PM$ -— U): GOSUB 15400: IF ER < > 


Z THEN RETURN 


PM$%(PM$ -— U) = TP:PM$ = PM$ - U: RETURN 

REM LELE) _ LELS: 

PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

TP = PM#(PM$ - U) - PM$(PM$): GOSUB 15400: IF ER < > 
Z THEN RETURN 

PM$(PM$ - U) = TP:PM$ = PM$ - U: RETURN 


LES * LEE 


REM 
PD = 2: GOSUB 15210: IF ER < 
TP = PM#(PM$ - U) * PM$(PM$): 

Z THEN RETURN 
PM$(PM$ -— U) = TP:PM$ = 

REM ###% / ##4% 

PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM$(PM$) = Z THEN ER = 2: RETURN 
TP = INT (PM$(PM$ - U) / PM$(PM$)): 
ER < > Z THEN RETURN 
PM$(PM$ - U} = TP:PM$ = 


> Z THEN RETURN 
GOSUB 15400: IF ER < > 


PM$ - 


U: RETURN 


GOSUB 15400: IF 


PM$ - U: RETURN 


REM LELL) e LES: 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM#(PM$ - U) < PM#(PM$%) THEN TP = - 1: GOTO 3820 
TP = Z: GOTO 3820 

REM *RRX =  *ttx 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM#(PM$% - U) = PM#(PM$) THEN TP = - 1: GOTO 3820 
TP = Z: GOTO 3820 

REM RAA D  ##XX 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM$#(PM$ -— U) > PM$(PM$) THEN TP = - 1: GOTO 3820 
TP = Z: GOTO 3820 

REM LES: <> LES. 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM#(PM$ - U) < > PM$(PM$) THEN TP = - l: GOTO 3 
820 
TP = Z 
PM$ = PM$ - U:PM#(PM$) = TP: RETURN 

REM #### AND *##* 


PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 


IF PMY(PM$ - U) = Z OR PM$(PM$) = Z THEN TP = Z: GOT 
O 3820 

TP = - l: GOTO 3820 

REM ###44 OR #*+4% 


PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 


Pom's n° 27 





4010 


4020 
40939 
4100 
4110 
4120 
4199 
4200 
4210 
4220 
4299 
4300 
4310 
4399 
4400 
4410 
4420 
4499 
4500 
4510 
4599 
4600 
4610 


4615 
4699 
4700 
4710 


4799 
4800 
4810 


4899 
4900 
4910 


4920 
4999 
5000 
5010 


5015 
5020 


5030 
5099 
5100 
5110 


5199 
5200 
5210 


5220 


5299 
5300 
5305 
5310 


5315 


5320 
5330 


5340 
5399 
5400 
5410 
5499 
5500 
5510 
5520 
5530 
5599 
5600 
5605 


56939 
5700 
5799 
5800 


IF PM$&(PM$ - U) < > Z OR PM#(PM$) < > Z THEN TP = 
— 1: GOTO 3820 
TP = Z: GOTO 3820 

REM ##+#* NOT *##* 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
IF PM#(PM$) = Z THEN PM$(PM$) = - U: RETURN 
PM$(PM$) = Z: RETURN 

REM LS ss DUP LES 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
GOSUB 15200: IF ER < > Z THEN RETURN 
PM$(PM$%) = PMS(PM$ - U): RETURN 

REM ##*##  DROP **** 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
PM$ = PM$ - U: RETURN 


REM *k*k*k OVER LES ss 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

GOSUB 15200: IF ER < > Z THEN RETURN 
PM$(PM#) = PM$(PM$% - 2): RETURN 

REM LELE): Cà ELLES: 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
PM$(PM$) = PEEK (PM$%(PM$)): RETURN 

REM #ttt CI *#+*+* 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM$(PM$ - U) < Z OR PM#&(PM# - U) > 255 THEN ER = 
30: RETURN 

POKE PMS$(PM$),PMS(PM$ — U):PM$ = PM$ - 2: RETURN 
REM ESS: ROT LELS): 
PD = 3: GOSUB 15210: IF ER < > Z THEN RETURN 
TP = PM#(PMS$ - 2):PMS#(PM& - 2) = PM#(PMS - U):PMS$(PM$# 

— U) = PM$(PM$):PM#(PM$) = TP: RETURN 

REM ELLES SWAP *hhx 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

TP = PMS#(PM$ - U):PM$#(PM$ - U) = PM$(PMS$) :PM#&(PM$) = 
TP: RETURN 

REM #t44 CR **4* 
EL = EL + U:EC = U: IF EL < > 6 THEN RETURN 


FOR I = U TO 4:EC$(I) = EC$S(I + U): NEXT :EC$S(5) = " 
"EL = 5 

GOSUB 50055: RETURN 
REM RAA EMIT 
PD = 1: GOSUB 15210: IF ER < > Z THEN RETURN 

IF PM#(PM$) > 255 OR (PM#(PMS%) < 32 AND PM#(PM$) < 
> 13) THEN ER = 30: RETURN 

IF PM$(PM$) = 13 THEN GOSUB 4900: RETURN 
EC$(EL) = EC$(EL) + CHR$ (PM$(PM$)): VTAB 2: PRINT : 
VTAB 4 + EL: POKE 36,17 + EC: PRINT CHR$ (PM$#(PM$) 
);:EC = EC + 1: IF EC = 17 THEN GOSUB 4900 


PM$ = PM$ - U: RETURN 


+++* 


REM #*#+*x4 | STORE #+#+x* 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 

POKE PMS(PM$), PEEK ( FN VP(PM$ - U) + U)}: POKE PM$({ 
PM#) + U, PEEK ( FN VP(PM$ - U)):PM$ = PM$ - 2: RETU 
RN 

REM CELLES **#+* 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 

VT$ = STR$ (PM#(PM$)): GOSUB 4900:EC$(EL) = VT$:EC = 
EC + LEN (VT$) 

VTAB 2: PRINT : VTAB 4 + EL: POKE 36,18: PRINT EC$(E 
L);:PM$ = PM$ - U: RETURN 

REM #h#X OM  #kt* 

IF MID$ (E$,PR,U) = " " THEN PR = PR + U: GOTO 5300 
IF PM$ > = 11 THEN ER = 21: RETURN 

IF MID$ (E$,PR,U) = CHR$ (34) OR PR > = NC THEN 5 
330 
PM$ = PM$ + U:PM$(PM#) = ASC ( MID$ (E$,PR,U)): GOSU 
B 5000: IF ER < > Z THEN RETURN 
PR = PR + U: GOTO 5310 

IF MID$ (E$,PR,U) < > CHR$ (34) THEN ER = 31: RET 
URN 
PR = PR + U: RETURN 

REM LEE: 7 LLLLS 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 

GOSUB 5510: GOTO 5210 

REM M AROBAS FETCH  **## 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
T9 = PEEK (PM$(PM$#)) + PEEK (PM$(PM$) + 1) * 256 

IF T9 > NX THEN T9 = T9 - 65536 
PM$(PM$) = T9: RETURN 

REM LELS: KEY ++ 

GOSUB 15200: IF ER < > Z THEN RETURN 

VTAB 2: PRINT : VTAB 4 + EL: POKE 36,EC + 17: GOSUB 
300: VTAB 2: PRINT :PM#(PM$) = ASC (X$): RETURN 

REM LELLS CLS EL: 

GOSUB 50005: RETURN 

REM RAR 7 +h#** 
ER = 23: RETURN 








5899 
5900 
5999 
6000 
6020 
6030 
6099 
6100 
6110 


6199 
6200 
6210 
6215 
6220 
6230 
6299 
6300 
6310 
6320 
6330 
6340 
6399 
6400 
6499 
6500 
6599 
6600 
6699 
6700 
6710 
6720 
6799 
6800 
6899 
6900 
6910 
6999 
7000 


7005 
7006 
7010 
7012 
7015 
7020 


7025 


7030 


7035 


7040 


7050 
7060 
7099 
7100 
7105 


7110 
FTTS 
7116 
7120 


7125 


7130 


7140 
7145 


7150 


7199 
7200 
7205 
7210 


7215 
7216 
7220 


REM ##X4 à *+xx 
ER = 27: RETURN 
REM #ARXX I #44 
IF PO = Z THEN ER = 24: RETURN 
GOSUB 15200: IF ER < > Z THEN RETURN 
PM$(PM$) = ID: RETURN 
REM ###4 DO *#4* 
PD = 2: GOSUB 15210: IF ER < > Z THEN RETURN 
ID = PM$(PM$#):II = PM#(PM$ - U):PM$ = PM$ - 2:PO = PT 
: RETURN 
REM #**x*x  +LOOP **** 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
IF PO = Z THEN ER = 11: RETURN 
ID = ID + PM$(PM$):PM$ = PM$ - U 
JF 1D < IT THEN ET*="P0 
RETURN 
REM XXX*X IF #*#*4 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
IF PM$(PM$) < > Z THEN PM$ = PM$ -— U: RETURN 
PM$ = PM$ - U 
ND = 35: GOSUB 8800: IF PT < MX THEN RETURN 
ND = 34: GOSUB 8800: RETURN 
REM LES THEN ***4 
RETURN 
REM #tt4 ELSE *#** 
ND = 34: GOSUB 8800: RETURN 
REM *#44 BEGIN *#*#* 
PW = PT: RETURN 
REM ##44x  WHILE #****4 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
IF PM$#(PM$) < > Z THEN PM& = PM$ - U: RETURN 
PM$ = PM$ - U:ND = 38: GOSUB 8800: RETURN 
REM #*#*4 REPEAT *#** 
PT = PW: RETURN 
REM HAAA (CONSTANT #2%% 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
T1 = U: GOTO 7005 
REM #### VARIABLE *#** 
T1 = 2: IF MID$S (ES$,i, LEN (MO$)) < > MO$ THEN ER = 
28: RETURN 
GOSUB 32000: IF ER < > Z THEN RETURN 
IF MOS = CHRS$S (13) THEN ER = 29: RETURN 
GOSUB 32200: IF NU < > Z THEN ER = 20: RETURN 
GOSUB 32090 
IF FD + LM + 9 > MX OR MC = 255 THEN ER = 4: RETURN 
FOR I = Z TO LM - U: POKE FD + I, ASC ( MIDS (MOS,I 
+ U,U)): NEXT 
POKE FD + I,32: POKE FD + I + U,Z: POKE FD + I + 2,M 
C: POKE FD + I + 3,T1 
IF T1 = 2 THEN POKE FD + I + 4,2: POKE FD + I + 5,2 
: POKE FD + I + 6,255 
IF T1 = U THEN POKE FD + I + 4, PEEK ( FN VP(PM$#)): 
POKE FD + I + 5, PEEK ( FN VP(PM$) + U): POKE FD + 
I + 6,255:PM$ = PM$ - U 
POKE FD + I + 8, FN RQ(DM): POKE FD + I + 7, INT (DM 
/ 256) 
DM = FD:FD = FD + LM + 9:MC = MC + U 
GOSUB 51000: RETURN 
REM #A#*# CARRAY +++ 
PD = U: GOSUB 15210: IF ER < > Z THEN RETURN 
TP$ = PMS(PM8) + U: IF TP$ < U OR TP8 > 127 THEN ER = 
33: RETURN 
GOSUB 32000: IF ER < > Z THEN RETURN 
IF MO$ = CHR$S (13) THEN ER = 29: RETURN 
GOSUB 32200: IF NU < > Z THEN ER = 20: RETURN 
IF FD + LM + 7 + TP#& > MX OR MC = 255 THEN ER = 4: R 
ETURN 
FOR I = Z TO LM - U: POKE FD + I, ASC ( MID$ (MO$,1I 
+ U,U)): NEXT 
POKE FD + 1,32: POKE FD + I + U,Z: POKE FD + I + 2,M 
CS POKE EFD'E I 3,3 
POKE FD + I + 4,TP$: POKE FD + I + 5 + TP$,255 
POKE FD + I + 7 + TP#, FN RQ(DM): POKE FD + I + 6 + 
TP$, INT (DM / 256) 
DM = FD:FD = FD + LM + 8 + TP%:MC = MC + U: GOSUB 510 
00:PM$ = PM$ - U: RETURN 
REM ##***4  FORGET ***#* 
GOSUB 32000: IF ER < > Z THEN RETURN 
IF MO$ = CHR$S (13) THEN ER = 29: RETURN 
VTAB 2: PRINT : VTAB 23: CALL CW: PRINT "Etes-vous s 
ur ? O/N ";: GOSUB 300: IF X$ < > "O" AND X$ < >" 
o" AND X$ < > "N" AND X$ < > "n" THEN 7210 
IF X$ = "n" OR X$ = "N" THEN PR = NC: RETURN 
VTAB 2: PRINT 
GOSUB 32200: IF MOS = CHRS (13) THEN ER = 29: RETUR 


N 


7230 IF NU = Z THEN ER = 18: RETURN 

7240 IF NU < NM + U THEN ER = 22: RETURN 

7250 FD = AD: = AD + TP: GOSUB 51800:DM = PEEK (AD) * 2 
56 + PEEK (AD + U) 

7260 MC = NU: GOSUB 51000: RETURN 

7299 REM #ARÉ# AIDE ‘*F#E 

7300 GOSUB 57000: GOSUB 57200:CO = 4: GOSUB 15000: GOSUB 
32090 

7310 GOSUB 50050: GOSUB 1350: GOSUB 51000 

7320 VTAB 2: PRINT : VTAB 19: PRINT PM$: PRINT E$: RETURN 

7399 REM *#4x* QUITTE ###* 

7400 VTAB 2: PRINT : VTAB 23: PRINT "Confirmer par 'C' "; 
: GOSUB 300: IF X$ = "C" OR X$ = "c" THEN TEXT : HO 
ME : PRINT "AU FevOoir sense ": END 

7410 VTAB 2: PRINT : VTAB 23: CALL CW: RETURN 

7499 REM #### MODE **** 

7500 IF NOT MF THEN GOSUB 1360: RETURN 

7510 GOSUB 1350: RETURN 

7599 REM ELLES RAZ LES 

7600 GOSUB 15300: GOSUB 15900: GOSUB 15920:PR = NC: RETUR 
N 

7699 REM ###44 BELL *#*#* 

7700 PRINT BIP$;: RETURN 

7799 REM *#*#x  LISTEMOTS ***#**# 

7800 AD = DM: GOSUB 51900:TP = Z: TEXT 

7810 IF AD = Z THEN 7870 

7815 VTAB 2: PRINT : VTAB 13 + TP: POKE 36,54 

7820 IF PEEK (AD) = 32 THEN 7850 

7830 PRINT CHRS$S ( PEEK (AD));:AD = AD + U: GOTO 7820 

7850 TP = TP + U: GOSUB 51800:AD = PEEK (AD) * 256 + PEE 
K (AD + U): IF TP = 5 THEN TP = Z: VTAB 2: PRINT : V 
TAB 23: GOSUB 1300: VTAB 2: PRINT : VTAB 23: CALL CW 
: GOSUB 51900: TEXT 

7860 GOTO 7810 

7870 IF TP < > Z THEN VTAB 2: PRINT : VTAB 23: GOSUB 13 
00: VTAB 2: PRINT : VTAB 23: CALL CW 

7880 GOSUB 51000: RETURN 

7899 REM #### DEMO ###* 

7900 ER = 28: RETURN 

7999 REM ASAK  INIT ##A# 

8000 ER = 28: RETURN 

8798 REM Recherche d'un mot de numero ND dans un mot cr 
ee 

8799 REM {utilise pour ELSE THEN et REPEAT) 

8800 PT = PT + 2 

8820 IF PEEK (PT + U) = ND OR PT > = MX THEN RETURN 

8830 IF PEEK (PT) = 129 THEN PT = PT + 3: GOTO 8820 

8840 IF PEEK (PT) = 128 AND PEEK (PT + U) < > 23 THEN 
PT = PT + 2: GOTO 8820 

8850 PT = PT + 3 + PEEK (PT + 2): GOTO 8820 

8997 REM 

8998 REM Cherche l'adresse du mot cree NU 

8999 REM 

9000 I = DM 

9005 IF I = Z THEN RETURN 

9010 IF PEEK (1) < > 32 THEN I = I + U: GOTO 9010 

9015 IF PEEK (I + 2) = NU THEN AD = I + 4:I = 2: GOTO 90 
05 

9020 AD = I: GOSUB 51800:1 = PEEK (AD) * 256 + PEEK (AD 
+ U): GOTO 9005 

9997 REM 

9998 REM Affichage des messages d'ERREUR 

9999 REM 

10000 IF ER = 34 THEN MSS = "Erreur d'E/S sur Disquette." 
: GOTO 10010 

10004 VTAB 2: PRINT : VTAB 2 

10005 PRINT DS"OPEN MESSAPF,L39": PRINT D$"READ MESSAPF,R 
"ER: INPUT MSS$S: PRINT D$"CLOSE" 

10010 VTAB 2: PRINT : VTAB 23: CALL CW: PRINT MS$: VTAB 2 
O0:CO = PR: IF PR > 80 THEN CO = PR - 80: VTAB 21 

10020 POKE 36,CO - 1: INVERSE : PRINT " ";: NORMAL : VTAB 

2: PRINT : VTAB 24: GOSUB 1300: VTAB 2: PRINT : VTA 

B 23: CALL CW 

10030 ER = Z: GOSUB 15900: GOSUB 15920: GOSUB 15300: RETUR 
N 

10997 REM 

10998 REM Mise en place du DICO 

10599 REM 

11000 VTAB 20: POKE 36,10: PRINT "Preparation du Diction 
naire en COURS ..." 

11005 PRINT D$"BLOAD DICO" 

11010 FD = 34714: REM FD=FINDICO 

11020 DM = 34705: REM DM=LASTMOT (DERNIER MOT) 

11025 AY = FD: REM FIN DU DICO DE BASE 

11030 I = DM:K = NM 
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11040 
11050 


11060 


11070 
11080 
11090 
11997 
11998 
11999 
12000 
12006 
12007 
12010 


12020 


14997 
14998 
14999 
15000 
15010 


15020 
15199 
15200 
15201 
15209 
15210 
15211 
15219 
15220 
15221 
15297 
15298 
15299 
15300 
19397 
15398 
15399 
15400 
15401 
15897 
15898 
15899 
15900 


15919 
15920 


15997 
15998 
15999 
16000 


16005 


16010 


16015 


16020 


16025 


16040 


16045 
16050 


16060 
16070 


16080 
16090 


19997 
19998 
19999 
20000 


IF I = Z THEN RETURN 

IF PEEK (I) < > 32 THEN T$(K) = T$(K) + CHR$ ( P 
EEK (I)):I = I + U: GOTO 11050 
AD = I: GOSUB 51800:K = K - U: VTAB 20: POKE 36,51: 


PRINT CHR$ (42 + K - ( INT (K / 2) * 2)) 


I = PEEK (AD) * 256 + PEEK (AD + U): GOTO 11040 
VTAB 20: POKE 36,0: CALL CL 

RETURN 

REM 

REM Examen du DICO (pas utilise par le programme) 
REM 
I = DM 

IF I = Z THEN END 

PRINT I;" LE 

IF PEEK (I) < > 32 THEN PRINT CHR$ ( PEEK (I)); 


:I = I + U: GOTO 12010 

PRINT " "> PEEK (I + U) * 256 + PEEK (I + 2);" 
";::AD = I: GOSUB 51800:I = PEEK (AD) * 256 + PEEK 
(AD + U): PRINT I: GOTO 12006 

REM 

REM Affichage Pile Ecran 
REM 

IF PM$ = Z THEN RETURN 
FOR I = 1 TO PM$%: VTAB 2: 
36,CO: PRINT RIGHTS (" 
NEXT : RETURN 

REM Pile saturee ?? 
IF PM$ < 11 THEN PM$& = 
ER = 21: RETURN 


PRINT : 
+ 


VTAB 15 - I: POKE 
STR$ (PM$(1I)),6) 


PM$ + l: RETURN 


REM Y a-t-il assez d'elements sur la pile ?? 

IF PM$ < PD THEN ER = 1 

RETURN 

REM Pile de retour saturee ?? 

IF PR$ < 255 THEN PR$ = PR$ + 1: RETURN 
ER = 21: RETURN 

REM 

REM Initialisation des Piles 

REM 
PM$ = Z:PR$ = Z:MO$ = "": GOSUB 32090: RETURN 

REM 

REM Test si resultat entre NN et NX 

REM 

IF TP < NN OR TP > NX THEN ER = 3 

RETURN 

REM 

REM Efface Pile AVANT 

REM 

POKE 33,7: POKE 32,4: POKE 34,3: POKE 35,14: HOME : 
TEXT : RETURN 

REM Efface Pile APRES 

POKE 33,7: POKE 32,42: POKE 34,3: POKE 35,14: HOME 
: TEXT : RETURN 

REM 

REM +++ DEMO *htx 

REM 

GOSUB 15900: GOSUB 15920: GOSUB 50005: GOSUB 15300: 
GOSUB 1360 

VTAB 2: PRINT : VTAB 23: PRINT "Numero de DEMO (XX) 


: ";: CALL CW: GET X$S:X = ASC (X$) - 48: IF X < 0 
OR X > 9 THEN PRINT BIP$;: GOTO 16005 


NE = X: PRINT X$;: GET X$: IF X$ = CHR$ (13) THEN 1 
6025 

X = ASC (X$) -— 48: IF X < O0 OR X > 9 THEN PRINT BI 
P$;: GOTO 16005 

NE = NE * 10 + X: PRINT X$;: GET X$: IF X$ < > CHR 


$ (13) THEN PRINT BIP$;: GOTO 16005 

VTAB 2: PRINT : PRINT D$"OPENDEMOAPF, L160": 
PRINT : PRINT D$"READDEMOAPF, R"NE:E$ = "" 
GET X$: IF X$ = CHR$ (13) THEN 16050 
E$ = E$ + X$: GOTO 16040 

VTAB 2: PRINT : PRINT D$"CLOSE": IF E$ = "FIN" ORE 
S = MSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSSSSS 
ÉÉÉRÉÉSÉEEEEEEESEEEEEETESEEEEEEEEREEECEEEEEEEERERERE) 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSESSSES 


VTAB 2: 


SS$SS$SSS$$" THEN ER = 36: RETURN 
NC = LEN (E$) 

IF MIDS$ (E$,NC,1) = " " THEN NC = NC - 1: GOTO 160 
70 
E$ = MIDS (E$,1,NC) + CHRS (13):NC = LEN (E$) 
VTAB 2: PRINT : VTAB 19: CALL CW: PRINT FM$: PRINT 
E$: RETURN 

REM 

REM %##4 COMPILATION Le 

REM 

GOSUB 15900: GOSUB 15920:CO = 4: GOSUB 15000: GOSUB 
20900:CP = VR:PR = 3:FC = Z 


20010 
20020 


20030 
20040 
20045 
20050 
20060 


20070 
20080 


20100 


20105 
20106 
20110 
20112 
20120 
20130 


20140 


20150 
20151 
20152 


20160 
20161 
20162 


20170 
20180 


20190 
20200 
20210 


20211 
20212 
20213 
20300 
20310 
20315 
20316 
20317 
20318 
20319 
20320 
20330 


20340 
20345 


20350 
20899 
20900 


20997 
20998 


20999 
21000 
21010 
21050 


21055 
21060 
21065 
21070 
21075 
21080 
21100 
21101 


‘21150 


21151 
21152 
21200 
21205 
21210 
21250 
21251 


IF MC = 255 THEN ER = 4: RETURN 

GOSUB 32000: GOSUB 32090: IF MO$ = CHR$ (13) THEN 
ER = 19: RETURN 

IF ER < > Z THEN RETURN 

GOSUB 32200: IF NU < > Z THEN ER = 20: RETURN 
Al = FD 

IF Al + LM + 3 > MX THEN ER = 4: RETURN 

FOR I = Z TO LM - 1: POKE Al + I, ASC ( MID$ (MO$,I 

+ U,U)): NEXT 

POKE Al + LM,32:A1 = Al + LM + U: POKE A1,Z 
Al = Al + U: POKE Al,MC:Al = Al + U: POKE Al,4:A1 = 
Al +0 

GOSUB 32000: GOSUB 32090: GOSUB 32200: IF NU = Z TH 
EN GOSUB 32100 

IF MO$ = CHR$ (13) THEN ER = 19: RETURN 

IF NU = Z THEN ER = 18: RETURN 

IF ER < > Z OR NOT CP THEN 20310 

IF NU = 49 OR NU = 50 THEN ER = 5: GOTO 20300 

IF NU = 28 THEN ER = 23: GOTO 20300 

IF NU > 38 AND NU < 51 AND NU < > 47 THEN ER = 5: 
GOTO 20300 

IF NU = 23 THEN GOSUB 32000: IF MO$ = CHR$ (13) O 
R MIDS (MOS,LM,1) < > CHRS$S (34) THEN ER = 31: GOT 
O 20300 

IF NU < > 23 THEN 20160 

IF Al + 3 + LM - U > MX THEN ER = 4: GOTO 20300 
POKE A1l,128:A1 = Al + U: POKE Al,23:Al = Al + U: PO 
KE Al,LM - U: FOR I = U TO LM - U: POKE A1 + I, ASC 
{ MIDS (MOS,I,U)): NEXT :Al = Al + LM: GOTO 20210 

IF NU < > 99 THEN 20170 

IF Al + 3 > MX THEN ER = 4: GOTO 20300 

POKE A1l,129:A1 = Al + U:TP$ = VN: POKE Al, INT (TP$ 
/ 256):A1 = Al + U: POKE Al, FN RQ(TP$):A1l = Al + U 
: GOTO 20210 

IF NU = 29 THEN CP = FX: GOTO 20300 

IF NU > 29 AND NU < 39 THEN GOSUB 21000: IF ER < 


> Z THEN 20300 


IF Al + 2 > MX THEN ER = 4: GOTO 20300 

POKE A1l,128:A1 = Al + U: POKE Al,NU:A1I = A1 + U 
GOSUB 32000: GOSUB 32090: GOSUB 32200: IF NU < >2Z 
THEN 20300 

GOSUB 32100: IF NU < > Z THEN 20300 

IF MO$ = CHRS$S (13) THEN ER = 19: GOTO 20300 
ER = 18 

GOTO 20110 

IF ER < > Z OR CP THEN RETURN 

IF FC = 31 THEN ER = 10: RETURN 

IF FC = 33 OR FC = 35 THEN ER = 7: RETURN 

IF FC = 36 THEN ER = 14: RETURN 

IF FC = 37 THEN ER = 13 

IF ER < > Z THEN RETURN 

IF Al + 3 > MX THEN ER = 4: RETURN 

POKE A1,255:A1 = Al + U: POKE Al, INT (DM / 256):A1 
= Al + U: POKE Al, FN RQ(DM):A1 = Al + U:DM = FD 
FD = Al:MC = MC + U: GOSUB 51000 
MO$ = "": GOSUB 32090: VTAB 2: PRINT : VTAB 24: POKE 
36,2 

RETURN 

REM 

VTAB 2: PRINT : VTAB 24: POKE 36,2: PRINT "Compilat 
ion en cours .... Soyez patients.";: RETURN 

REM 

REM **4* Analyse SYNTAXIQUE des structures de co 
ntrole **** 

REM 

IF FC = Z THEN GOSUB 21050: RETURN 

GOSUB 21100: RETURN 

IF NU = 31 OR NU = 33 OR NU = 36 THEN FC = NU: RETU 
RN 

IF NU = 30 THEN ER = 24; RETURN 

IF NU = 32 THEN ER = 11: RETURN 

IF NU = 34 THEN ER = 8: RETURN 

IF NU = 35 THEN ER = 9: RETURN 

IF NU = 37 THEN ER = 12: RETURN 

ER = 25: RETURN 

IF FC = 31 THEN GOSUB 21150: RETURN 

GOSUB 21200: RETURN 

IF NU = 31 OR (NU > 32 AND NU < 39) THEN ER = 26: R 
ETURN 

IF NU = 32 THEN FC = Z 

RETURN 

IF NU = 30 THEN ER = 24: RETURN 

IF FC = 33 THEN GOSUB 21250: RETURN 

GOSUB 21300: RETURN 

IF NU = 34 THEN FC = Z: RETURN 

IF NU = 35 THEN FC = 35: RETURN 
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25 


21252 
21300 
21301 
21350 
21351 
21400 
21401 
21450 
21451 
21500 
21505 
21510 
30997 
30998 
30999 
31000 


31010 
31015 


31020 


31025 
31030 
31040 
31041 
31050 
31060 


31061 
31897 
31898 
31899 
31900 
31906 
31907 
31910 
31911 


31930 
31947 
31948 
31949 
31950 
31956 
31960 
31967 
31968 
31969 
31970 


31997 
31998 
31999 
32000 
32010 


32040 


32050 


32055 


32060 
32065 
32070 
32087 
32088 
32089 
32090 
32093 


32095 
32097 
32098 
32099 
32100 
32110 


32120 
32130 


32140 


ER = 26: RETURN 


IF FC = 35 THEN GOSUB 21350: RETURN 
GOSUB 21400: RETURN 
IF NU = 34 THEN FC = Z: RETURN 
ER = 26: RETURN 
IF FC = 36 THEN GOSUB 21450: RETURN 
GOTO 21500 
IF NU = 37 THEN FC = 37: RETURN 
ER = 14: RETURN 


IF FC < > 37 THEN ER = 15: RETURN 

IF NU = 38 THEN FC = Z: RETURN 
ER = 26: RETURN 

REM 

REM ENTREE d'une ligne de 159 caracteres 

REM 

VTAB 2: PRINT : VTAB 19: POKE 36,0: CALL CW: PRINT 
PM$:NC = O:E$ = "":X = FRE (0):X = Z:MOS = "": GOSU 
B 32090 


IF NOT (NC < > 159 AND X < > 13) THEN 31050 

VTAB 2: PRINT : VTAB 20 + INT (NC / 80): POKE 36,N 
C — INT (NC / 80) * 80 

GOSUB 300: IF X < 123 AND X > 96 THEN X = X - 32:XS 
= CAR$ (X) 

IF X = 27 THEN TEXT : HOME : GOTO 31000 

IF X = 8 THEN GOSUB 31950 

IF X < > 8 THEN GOSUB 31900 

GOTO 31010 

IF X < > 13 THEN ER = 16: GOSUB 10000: GOTO 31000 
NC = NC - 1:E$ = MID$ (E$,1,NC): IF RIGHTS (E$,1) 


= " " THEN 31060 


NC = NC + 1:E$ = E$ + CHRS$S (13): RETURN 

REM 

REM on n'a pas tape CTRL-H 

REM 

IF NOT (NC = O0 AND {X = 32 OR-X = 13)) THEN 31910 
PRINT BIPS$;: IF X = 13 THEN X = 0 


RETURN 

IF X < 32 AND X < > 13 THEN PRINT BIPS;: RETURN 
NC = NC + U:ES$ = E$ + X$: IF X < > 13 THEN PRINT X 
$; 
RETURN 
REM 
REM 
REM 
IF NC = O THEN PRINT BIPS$S;: RETURN 
NC = NC - 1:E$ = MID$S (E$,1,NC): GOSUB 31970 
RETURN 

REM 

REM Recul 

REM 
VTAB 2: 
C — 90 * 
URN 

REM 
REM Recherche d'un mot dans l'ENTREE 
REM 
MO$ = "":LM = 0 

IF MID$ (ES$,PR,1) = 
10 

IF MID$ (E$,PR,1) 
(13) THEN 32055 
MO$ = MO$ + MIDS (ES,PR,1):PR = PR + 1:LM = LM + 1: 
GOTO 32040 

IF LM > 16 THEN ER = 17: RETURN 


IF MIDS$S (ES$,PR,1) < > CHRS$S (13) THEN RETURN 
IF LM = O0 THEN MO$ = CHRS$ (13):PR = PR + 1 
RETURN 
REM 
REM 
REM 
IF MOTS = 
VTAB 2: PRINT : 
MO$ + " 

RETURN 

REM | 
REM MOS$ est-il un nombre ?? 
REM 
ER = Z: FOR I = U TO LEN (MO$) 


on a tape CTRL-H 


PRINT : VTAB 20 + 
INT. (NC 7 80): PRINT © "+ 


INT (NC / 80): POKE 36,N 
CHR$ (8);: RET 


" " THEN PR = PR + 1: GOTO 320 


CHR$ 


" " OR MID$ (E$,PR,1) = 


Affiche le MOT 


CHR$ (13) THEN RETURN 
VTAB 14: POKE 36,17: PRINT LEFTS ( 
",16) 


X = ASC ( MID$ (MOS$,I,U)): IF (X < > 43 ANDX< > 
45 AND (X < 48 OR X > 57)) OR (X = 43 AND I < > U) 
OR (X = 45 AND I < > U) THEN ER = 18:I = LEN (MO$ 


) 


NEXT : IF ER < > Z THEN RETURN 

VN = VAL (MOS$):NU = 99: IF VN < NN OR VN > NX THEN 
ER = 3 

RETURN 


32197 
32198 
32199 
32200 
32201 
32202 
32203 
32209 
32210 
32212 
32213 


32214 


32215 
32220 
32225 


32230 
32235 
32236 


32245 
32250 
39997 
39998 
39999 
40000 


40060 


50004 
50005 


50050 
50055 


50897 
50898 
50899 
51000 
51010 
51020 
51030 
51040 
51045 


51050 
51797 
51798 


51799 
51800 
51805 


51810 


51815 
51820 
51825 


51830 


51835 
51860 
51897 
51898 
51899 
51900 


55999 
56000 
56002 
56003 


56004 


56005 


56006 


REM 

REM Recherche du numero d'un mot dans le dico 
REM 
NU = Z: FOR I = U TO NM 

IF T$(I) = MOS$S THEN NU = I:I = NM 

NEXT : IF NU < > Z THEN RETURN 

IF MC = 101 THEN RETURN 
AD = 

IF AD < AY OR NU < > Z THEN 32245 
TP = 2Z 

IF PEEK (AD + TP) < > 32 THEN TP = TP + U: GOTO 3 


2213 

IF TP < > LM THEN AD = AD + TP: GOSUB 51800:AD = 
PEEK (AD) * 256 + PEEK (AD + U): GOTO 32210 
FG = VR 

FOR I = Z TO LM-U 

IF PEEK (AD + I) < > ASC ( MID$ (MOS$,I + U,U)) T 
HEN FG = FX:I = LM 
NEXT 

IF FG THEN NU = 
AD = AD + TP: GOSUB 51800:AD = 
EEK (AD + U): GOTO 32210 

IF AD = Z AND NU = Z THEN IF MO$ = "+" THEN NU = U 
RETURN 
REM 
REM 
REM 

ER = PEEK (222): IF ER > O AND ER < 16 THEN ER = 34 
: GOSUB 10000: RESUME 

PRINT "ERREUR NON TRAITEE N[ "ER" EN " PEEK (218) + 
256 * PEEK (219): END 

REM Efface Ecran du Forth 

FOR I = U TO S5S:ECS$(I) = 
SUB 50055: RETURN 


PEEK (AD + TP + 2): GOTO 32210 
PEEK (AD) * 256 + P 


Gestion des ERREURS 


""z NEXT :EC = U:EL = U: GO 


REM Affiche ECRAN du Forth 

TEXT : POKE 33,16: POKE 32,18: POKE 34,4: POKE 35,0 
9: HOME : TEXT : FOR I = U TO 5: VTAB 4 + I: POKE 36 
,18: PRINT EC$(I);: NEXT : RETURN 

REM 

REM Affichage Fin du DICO 

REM 

GOSUB 51900:AD = DM 

FOR I = 1 TOS5 

IF PEEK (AD) = 32 THEN 51040 

PRINT CHR$ ( PEEK (AD));:AD = AD + 1: GOTO 51020 
IF I = 5 THEN 51050 

PRINT : GOSUB 51800:AD = PEEK (AD) * 256 + PEEK { 
AD + 1) 

NEXT : TEXT : RETURN 

REM 

REM Calcul l'OFFSET pour trouver l'adresse suivant 
e 

REM 

IF PEEK (AD + 2) < 100 THEN AD = AD + 3: RETURN 
IF PEEK (AD + 3) = 1 OR PEEK (AD + 3) = 2 THEN AD 
= AD + 7: RETURN 6 

IF PEEK (AD + 3) = 3 THEN AD = AD-+ PEEK (AD + 4) 
+ 6: RETURN 
OS = 4 


IF PEEK (AD + OS) = 255 THEN 51860 

IF PEEK (AD + OS) 128 AND PEEK (AD + OS + 1) = 
23 THEN OS = OS + 3 + PEEK (AD + OS + 2): GOTO 5182 
(4 

IF PEEK (AD + OS) = 129 THEN OS = OS + 3: GOTO 518 
20 


OS = OS + 2: GOTO 51820 
AD = AD + OS + 1: RETURN 

REM 

REM Efface ecran fin du DICO 

REM 

TEXT : POKE 33,16: POKE 32,55: POKE 34,12: POKE 35, 
17: HOME : RETURN 

REM 

REM INITIALISATION 

HIMEM: 34304: REM $8600 

Z = O:U = 1:ER = Z2:1I = Z:J = Z:TP = Z:VR = U:FX = 2: 
D$ = CHR$ (4):CL = - 868:CW = - 958:X$ = "":X = Z 
:MF = FX:PR = U:NU = Z:PM$ = Z:PR$ = 2:E$ = "" 

FD = Z:LM = Z:MO$ = "":NC = Z:LM = Z:VN = 2:FG = ZiN 
X = 32767:NN = - NX:SU = VR:MS$S = "M: VTS = "MINS = 
"R:ADS$S = "":AD = Z:MS = "":MX = 9 * 4096 + 6 * 256:D 
M = Z:PD = 2 

DD = 8 * 4096 + 6 * 256 + 1:MC = 101:TP$ = Z:PM$S = " 
Pret'":NE = U:0OS = Z:CP = VR:FC = Z:N = Z:PT = Z:PO = 
Z:1ID = Z:EC = U:EL = U:CO = Z 

II = Z:PW = Z:T1 = Z:T9 = Z:X1 = Z:X2 = Z:ND = Z:DEM 
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56010 
56015 
56016 


56020 
56030 
56999 
57000 
57001 
57005 


57010 


57020 
57030 
57060 
57070 
57080 
57085 
57090 
57100 
57110 


57120 
57130 


57140 
57145 
57150 
57151 
57152 
57155 
57160 
57180 
57199 
57200 


57201 
57205 


57210 


57215 


57220 


57225 


57299 
57699 
57700 
57701 
57705 
57799 


O$ = "";TIS = "L'APPRENTI FORTHier":BIPS$ = CHR$ (7) 
NM = 50: DIM PM#{(11),PR(255),ECS$ (5), T$ (NM) 

DEF FN RQ(X) = X - INT (X / 256) * 256 

DEF FN VP(X) = PEEK (107) + PEEK (108) * 256 + 7 
É22 AT 

ONERR GOTO 40000 

RETURN 

REM 

REM ECRAN d'AIDE 

REM 


GOSUB 57700: VTAB 1: POKE 36,48: PRINT "....";: INV 
ERSE : PRINT "Ecran d'AIDE a l'utilisateur": NORMAL 
VTAB 3: POKE 36,0: PRINT "DEMO acces a un f 
ichier de demonstration(doit etre en debut de ligne) 


PRINT "INIT reinitialise le FORTH (doit etr 
e en debut de ligne)" 

PRINT "LISTEMOTS liste le dictionnaire a l'ecran 
"” 

PRINT "MODE commute mode NORMAL et mode PAS 
À PAS" 

PRINT "QUITTE arret du programme" 

PRINT "AIDE affiche cet ecran" 

PRINT "RAZ initialise les piles" 

PRINT "CARRAY tableau d'octets (25 CARRAY XZ 


donne un tableau XZ de 26 octets)" 


PRINT "Cäà et C! pour utiliser les elements d'un 
tableau" 
PRINT "+LOOP 11 n'y a pas de boucle LOOP, don 


c toujours preciser le pas" 

PRINT "Nombres entiers de -32767 a 32767" 
PRINT "Autres mots ils sont classiques du FORTH 79 
" 

PRINT : PRINT "Longueur d'une phrase : 
9 caracteres." 

PRINT "MOTS CREES limites a 16 caracteres pour le n 
om (154 mots maxi.)" 

PRINT "L'APPRENTI FORTHier n'admet pas les structur 
es de controle imbriquees." 
PRINT " Attention aux mots 
ans la memoire)" 

PRINT " La recherche des erreurs prend du temps... 
Soyez PATIENTS" 

PRINT " Ne jamais taper CTRL-C" 


limitee a 15 


fâ' et 'Cà' (ecriture d 


VTAB 24: POKE 36,12: GOSUB 1300 

RETURN 

REM 

REM Ecran de travail 

REM 

GOSUB 57700: INVERSE : FOR I = 4 TO 14: VTAB I: POK 
E 36,1: PRINT " ";: POKE 36,11: PRINT " ";: POKE 3 
6,39: PRINT " ";: POKE 36,49: PRINT " ";: NEXT 
VTAB 15: POKE 36,1: PRINT " ":: POKE 36, 
39: PRINT " ";:: VTAB 16: POKE 36,2: PRINT 
"PILE AVANT";: POKE 36,40: PRINT "PILE APRES" 

VTAB 4: POKE 36,16: PRINT " ECRAN Fe V 


TAB 10: POKE 36,16: PRINT " 7 
FOR I = 5 TO 9: VTAB I: POKE 36,16: PRINT " ";: PO 
KE 36,34: PRINT " ";: NEXT 

NORMAL : VTAB 12: POKE 36,16: PRINT "MOT en COURS : 
": VTAB 4: POKE 36,54: PRINT "MODE :": VTAB 11: POKE 
36,53: PRINT "FIN du DICTIONNAIRE" 


RETURN 

REM 

REM **## TITRE 

REM 

HOME : PRINT TAB( 30);TI$: RETURN 


REM 





Fichier DEMOAPF' 


créé par le programme CREDEMO 


Phrase 
123: 58 


Phrase 
CLS 7 


Phrase 
AIDE L 


Phrase 


5 
+ 78 SWAP DUP * AND 1 <> 
24e 
FORTH" 42 78 - 555 + 4 * 
3 Ê 


ISTEMOTS 12 45 78 96 * + DUP DROP SWAP 45 OVER 78 ROT 
4: 


: BOOM CR ESSAI ." BOOM" ; 
D 2 
DE KEY BEGIN 13 <> WHILE KEY REPEAT ." RT" ; 


Phrase 
: VALI. 


Phrase 6 : 


: ESSAI ." OK” VALIDE CR ." FIN" : 
Phrase 7 : 


VARIABLE XYZ 
Phrase 8 : 

24 CONSTANT CST 
Phrase 9 : 


: ENTR KEY DUP BEGIN 32 = WHILE KEY DUP REPEAT EMIT ; 





Programme ‘CREMESS" 


1 REM RéthttttttttttARARÉ ARR EEE 
2 REM Programme CREMESS 

3 REM Creation des Messages d'ERREUR 
4 REM pour programme APF 

5 REM Le fichier cree est MESSAPF 

6 REM C'est un fichier direct 

9 REM Fej Nissuorgsky 

10 REM RAA AE ES À A Et À + € 


CHR$ (4): PRINT D$"PR#3" 

TEXT : HOME : PRINT "CREATION des messages d'erreur d 
u programme APF": PRINT "Le fichier s'appelle MESSAPF. 
n 


105 PRINT : PRINT "Taper <C> pour creer un message ou <V> 
pour VOIR un message <&> pour quitter ";: GET X$ 

106 PRINT X$:X = ASC (X$): IF X = 38 THEN END 

107 IF X = 67 OR X = 99 THEN GOSUB 110: GOTO 100 

108 IF X = 86 OR X = 118 THEN GOSUB 2000: GOTO 100 

109 GOTO 105 

110 HOME : PRINT "CREATION des Messages (36 Caracteres ma 


xi.) <&> Pour Quitter": PRINT : INPUT "Numero : "NUS: 


NU = INT ( VAL (NUS)): IF NU < 1 OR NU > 99 THEN 110 

120 X = ASC (X$): IF X = ASC ("&") THEN END 

150 M$ = "": PRINT "Votre Message (<&>=Quitte) : "; 

152 GET XS:X = ASC (X$): IF X = 13 AND LEN (M$) = O THE 
N 152 

153 IF X = 8 AND LEN (M$) < > O THEN GOSUB 1000: GOTO 
152 

154 IF X = 13 THEN 160 

155 IF X = ASC ("&") THEN N = N - l: RETURN 

156 IF X < 32 OR X > 125 THEN 152 

157 PRINT XS;:MS = M$ + X$: IF LEN (M$) > 36 THEN INVER 
SE : PRINT "Trop long": NORMAL : PRINT : GOTO 150 

158 GOTO 152 

160 PRINT : PRINT D$"OPEN MESSAPF,L39": PRINT D$"WRITE ME 
SSAPF, R"NU 

170 PRINT CHRS (34) + M$ + CHR$ (34): PRINT D$"CLOSE" 

180 RETURN 

1000 REM On a tape <-- (CTRL-H) 

1010 M$ = MID$S (M$,1, LEN (M$) - 1): PRINT : VTAB PEEK ( 


37): POKE 36,29 + LEN (M$): CALL - 868: RETURN 
2000 HOME : PRINT "VOIR un message": PRINT : INPUT "Numer 
o : ";NUS:NU = INT ( VAL (NUS)): IF NU < 1 OR NU > 9 
9 THEN 2000 
2010 PRINT DS"OPEN MESSAPF,L39": PRINT D$"READ MESSAPF, R" 
NU: INPUT M$: PRINT D$"CLOSE" 
2020 PRINT : PRINT M$: PRINT : PRINT "Taper une Touche "; 
: GET X$: PRINT X$: RETURN 
3000 REM Liste IMPRIMEE des MESSAGES 
3010 HOME : PRINT "ASSUREZ-VOUS QUE L'IMPRIMANTE EST ZRAN 
CHEE 11111": PRINT : PRINT "VOUS ALLEZ LISTER SUR L'I 
MPRIMANTE LES MESSAGES" 
3020 GOSUB 3500 
3030 NM = 35:D$ = CHR$ (4): PRINT D$"PR#l": PRINT "Liste 
des Messages d'Erreur du programme L'APPRENTI FORTHie 
r": PRINT : PRINT : PRINT 
PRINT DS$"OPEN MESSAPF, L39" 
FOR I = 1 TO 35: PRINT D$S"READ MESSAPF,R'"I: INPUT M$ 
: PRINT RIGHT$ (" "+ STR$ (1),2);" ":M$: NEXT 
PRINT D$"CLOSE": PRINT D$"PR#0": END 
REM ABANDON ? 
PRINT : PRINT "POUR ABANDONNER TAPER 'A' SINON <RETU 
RN> ";: GET X$: IF X$ = "a" OR X$ = "A" THEN END 
IF X$ < > CHRS$ (13) THEN 3510 
PRINT X$: RETURN 
REM Creation du Fichier MESSAPF la lere fois 
HOME : PRINT "CREATION du FICHIER MESSAPF la lere fo 
is": GOSUB 3500 
D$ = CHRS (4):M$ = FOR I = 1 TO 38:M$ = M$ 
: NEXT : PRINT D$"OPEN MESSAPF,L39" 
FOR I = 1 TO 50: PRINT D$"WRITE MESSAPF,R"I: PRINT M 
$: NEXT 
PRINT D$"CLOSE" 


3035 
3040 


3050 
3500 
3510 


3520 
3530 
5000 
5005 


+ mxn 


5010 tes 


5020 


5030 
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21 


28 


Programme ‘GARDE.APF’ 


1 REM RE 
2 REM * Page de Garde du programme APF V3.0 # 
3 REM * Nom de ce programme : GARDE.APF sé 
4 REM * * 
8 REM * Fej Nissourgsky (c) 1985 CHANCELADE 24650 x 
9 REM ARE SE HR À A À À À Lt 6 À 4 8 fo of of EE À À À ft À 


10 PRINT CHR$ (4);"PR#3": TEXT : HOME 

20 GOSUB 1000: REM Implante l'AMPERSAND &KEY 

25 VTAB 2: PRINT 

30 VTAB 1: POKE 36,11: PRINT "PROGRAMME D'ACQUISITION DES 
CONCEPTS DU LANGAGE FORTH" 


35 INVERSE 
30  VTAB 3: POKE 36,15: PRINT "soc sice L'APPRENTI FO 
RTRIBT sas sise é 
45 NORMAL 
50 VTAB 5: POKE 36,15: PRINT "(c) Fej Nissuorgsky 24650 
CHANCELADE" 


60 VTAB 8: POKE 36,9: PRINT "Ce logiciel permet de simule 
r un FORTH. Il n'en a pas la vitesse" 

70 VTAB 10: POKE 36,6: PRINT "mais 11 comporte de nombreu 
x messages d'erreur tres explicites" 

80 VTAB 12: POKE 36,6: PRINT "et l'utilisateur peut 'voir 
" l'effet de chacun des 'mots' FORTH sur la” 

90 VTAB 14: POKE 36,6: PRINT "pile, l'ecran ou le diction 
naire (mode PAS A PAS). Le mode NORMAL ne montre" 

100 VTAB 16: POKE 36,6: PRINT "pas les etats intermediair 
es de la pile." 

110 VTAB 18: POKE 36,6: PRINT "Il est possible d'utiliser 

: constantes, variables, tableaux et" 

120 VTAB 20: POKE 36,6: PRINT "de creer des mots nouveaux 
. DEMO donne acces à un fichier de demonstration." 

130 VTAB 22: POKE 36,6: PRINT "Il s'agit d'un programme d 
‘apprentissage, 11 n'est pas rapide..." 

140 VTAB 24: POKE 36,6: PRINT "Pour continuer taper une t 
ouche ";: & KEY 

200 VTAB 2: PRINT : PRINT CHR$ (4) "RUN APF 22-4,D1" 

999 END 

1000 Q = 45 

1010 FOR I = O0 TO Q - l: READ Z$%: POKE 769 + I,Z%: NEXT 

1020 POKE 1014,1: POKE 1015,3 

1190 RETURN 


1200 DATA 44,0,192,16,251,173,0,192,44,16,192,41,127,141, 
0,3,201,32,144,14,165,184,24,105,3 

1210 DATA 133,184,165,185,105,0,133,185,96,201,13,240,238 
,201,8,240,234,76,1,3 





Fichier MESSAPF 


créé par le programme ‘CREMESS’ 


Insuffisance d'élèments sur la pile. 
Division par ZERO. 

Dépassement (numérique). 

Plus de place en MEMOIRE. 

Mot IMMEDIAT. 

Mot interdit en mode Immédiat. 

IF sans THEN. 

THEN sans IF. 

ELSE sans IF. 

10 DO sans +LOOP. 

11 +LOOP sans DO. 

12 WHILE sans BEGIN. 

13 WHILE sans REPEAT. 

14 BEGIN sans WHILE. 

15 REPEAT sans WHILE. 

16 ENTREE trop LONGUE (>159 caract.). 
17 MOT trop LONG (>16). 

18 MOT INCONNU. 

19 : sans 

20 MOT non unique. 

21 Pile SATUREE. 

22 Dictionnaire PROTEGE. 

23 Répétition de ‘:' 

24 I hors d'une boucle. 

25 REPEAT sans BEGIN. 

26 Structures de controle imbriquées. 
27 ; sans 

28 Le mot doit etre en DEBUT de ligne. 
29 Il manque un NOM. 

30 Sommet de pile INVALIDE. 

31 Il manque un ‘". 

32 Structure INCOMPLETE, 

33 Hors limites (Tableaux). 

34 Erreur sur DISQUE. 

35 Absence de ELSE. 


© © 9 où En & y NM ba 


Éditeur Plein Écran 


Le Pacha 


EPE 


Apple //e, /le+, JJc 


Listez vos programmes Basic en avant et en arrière. 
Modifiez, insérez, effacez des caractères en plein écran sans 
relire les lignes. 

Recherchez toute chaîne de caractères. 
Choisissez vous-même les codes de contrôle d'EPE. 
Modifiez EPE : le fichier source est sur la disquette. 


DOS, ProDOS, 40, 80 colonnes 


200,00 F TTC franco (bon de commande page 74). 
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La première partie de cet article 
proposait un programme sous 
forme de commande CP/M 
permettant de configurer la carte 
Super Série d'Apple. Après 
configuration, des fichiers 
pouvaient être transférés d'un 
ordinateur à l'autre par la 
commande CP/M PIP. Une 
transmission plus évoluée, tel est 
l'objet de ce deuxième volet. 


XMODEM 
(protocole de Ward Christensen) 


Le protocole XMODEM a été 
choisi car il est très courant, et 
c'est le plus simple des 
protocoles “hautes perfor- 
mances”. Il est en effet beaucoup 
plus puissant que les protocoles 
type D1/D3 ou ENQ/ACK, et 
reste relativement simple à 
implanter comparé à des 
“monstres” comme KERMIT. 


Dans un protocole logiciel, la 
gestion de la transmission 
(appelée aussi Contrôle de flux) 
n'est plus assurée par les signaux 
de la RS232 mais par des codes 
échangés entre émetteur et 
récepteur. De ceci découlent 
plusieurs avantages : 


- la liaison électrique est plus 

simple. En local, un câble pour 
XMODEM se ramène à trois fils 
seulement : Masse, TXD, RXD. 
(TXD et RXD étant bien sûr 
croisés) ; 


+ le dialogue entre le programme 

émetteur et le programme 
récepteur autorise une 
automatisation complète de la 
transmission. [1 y a envoi d'un 
bloc de données, contrôle par le 
récepteur, et envoi d'un accusé de 
réception ou au contraire d'une 
demande de renvoi en cas 
d'erreur. En cas de non réponse 
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(coupure de ligne momentanée, 
ou perte du code retour), il y a 
réémission automatique du bloc. 
Enfin, les programmes émetteur 
et récepteur se déconnectent au 
bout d'un temps maximum, ou 
d'un nombre donné de renvois 
sans succès. On peut donc lancer 
le transfert d'un gros fichier et 
vaquer à ses occupations en toute 
serénité, le programme ne 
“plantera” pas. En cas d'avarie, le 
récepteur est assuré d'avoir un 
fichier peut être partiel, mais 
validé et fermé correctement. 
XMODEM transmet sur 8 bits, ce 
qui autorise des échanges de 
fichiers ASCII ou binaires, et 
avec somme de contrôle, ce qui 
assure une bonne fiabilité de la 
transmission. 


Enfin, la mise en route de 
XMODEM émetteur et 
XMODEM récepteur est contrôlée 
par les programmes, qui doivent 
se rencontrer dans un délai d'une 
minute maximum. Ceci permet 
des transferts téléphoniques avec 
un équipement rustique, un 
simple Modem manuel est 
suffisant. Les correspondants 
peuvent s'appeler, se mettre 
d'accord, puis chacun lance son 
programmme de transmission et 
commute son Modem sur la 
ligne. Tous les signaux parasites, 
raccrochement de combinés et 
autres sont sans importance. 


Le nratacale 


Le format de la transmission est 8 
bits de données, 1 bit d'arrêt, pas 
de parité, vitesse quelconque. Les 
données entre émetteur et 
récepteur sont transmises sous 
forme de blocs de 132 octets, le 
format des Blocs étant le suivant : 
+ un octet d'en-tête, SOH 
(ASCII 1) ; 


° un octet donnant le numéro du 
bloc modulo 256. Le premier 
bloc est le numéro 1 ; 

* un octet donnant le complé- 
ment à 255 du numéro de bloc, 
pour vérification ; 

+ 128 octets de données, soit (au 
hasard ?) un secteur CP/M ; 

° un octet "Checksum” qui est la 
somme sans retenue des 128 
octets de données. 


Le contrôle de transmission 

utilise les codes de contrôle 

suivants : 

+ EOT (ASCII 4) Fin de 
transmission ; 

° ACK (ASCIT6) Bloc reçu et 
correct ; 

° NAK (ASCII 21) Refus du 
Bloc reçu, erreur ; 

° CAN (ASCII 24) Annulation 
de la transmission. 


Déroulement de la 
transmission côté émetteur 


1) Attendre pendant une minute 
un des deux codes suivants : 
CAN abandonner 

NAK démarrer la transmission. 
Au bout d'une minute sans NAK, 
abandonner. 


Ceci est la seconde 
partie d'un article 
sur la carte SSC et 

le CPM. 
Cependant, le 
contenu de cé … 
programmes) est 
utilisable seul. 


2) Transmission. 

° Envoyer un Bloc de 132 
octets. 

+ Attendre pendant 10 secondes 

maximum un des codes suivants : 

CAN abandonner 

ACK correct, passer au Bloc 

suivant. 

NAK refusé, renvoyer le même 

bloc. 

Au bout de 10 secondes sans une 

de ces trois réponses, renvoyer le 

même bloc. 

Un Bloc mauvais n'est réémis 

que dix fois au maximum, après, 

on abandonne de la transmission. 


3) Fin du fichier. 

Le dernier Bloc doit comporter 
des Ctri-Z de remplissage. Si ce 
n'était pas le cas (fichier de 
données multiple exact de 128) il 
faut renvoyer un Bloc complet de 
Ctri-Z. 


Après envoi du dernier Bloc, 
l'émetteur envoie le code EOT, 
avec la même procédure que pour 
les envois de Blocs (10 essais 
maxi, 10 secondes maxi pour 
recevoir CAN, ACK ou NAK). 


Déroulement de la 
transmission côté récepteur 


1) Attendre quelque chose en 
provenance de l'émetteur, en 
envoyant NAK toutes les dix 
secondes, ceci pendant une 
minute maximum. 


Help ! 


Vous avez la disquette 
d'accompgnement : 


Utilisez un programme du type 
Universal File Conversion pour 
transférer les fichier sur votre disquette 
CPIM puis tapez selon le cas : 
XMODR ou XMODE. 


Vous n'avez pas la disquette 
d'accompgnement : 

Saisissez les codes objet à l'aide de 
DDT, puis sauvegardez par 

SAVE 6 XMODR.COM 

et SAVE 5 XMODE.COM. 

Enfin exécutez l'une ou l'autre des 

commandes 


2) Réception de quelque chose : 

e C'est un bloc de 132 octets. 
Vérifier l'en-tête (SOH), et le 
Checksum. En cas d'erreur 
envoyer NAK. Si c'est correct, 
vérifier le numéro de bloc : 

- Bloc attendu, envoyer ACK. 

- Bloc précédent (l'émetteur n'a 


pas reçu le ACK 
correspondant), laisser passer 
et envoyer ACK. 


- Tout autre Bloc, le transfert 
est perdu, envoyer CAN et 
abandonner. 


+ C'est le code EOT. Envoyer 
ACK, fermer le fichier, 
terminé. 

+ Ce n'est ni l'un ni l'autre 

(bloc incomplet, ou "trou" dans la 

transmission), faire une “purge” 

de 5 secondes et envoyer NAK. 

En lecture, tout délai de plus 

d'une seconde entre deux 

caractères signifie un problème 
grave de ligne (même à basse 
vitesse, 300 bauds, cela fait au 
moins 30 caractères perdus). 

L'information sera de toutes 

façons dégradée, la purge de 5 

secondes sert à laisser l'émetteur 

finir l'envoi du bloc en cours. 


Remarque : une fois la 
transmission commencée, le 
récepteur doit abandonner s'il 
reste plus de 10 secondes sans 
rien recevoir (l'émetteur faisant 
des renvois automatiques, cela 
indique une ligne complètement 
coupée). 

Lorsqu'on abandonne Ja 
transmission, il est recommandé 
d'envoyer un ou deux codes 
CAN, afin de libérer 
éventuellement l'émetteur. 


Le programme 


Le programme est en fait découpé 
en deux commandes CP/M, une 
pour l'émission, XMODE.COM 
et l'autre pour la réception, 
XMODR.COM. 

Ces deux programmes sont assez 
voisins, assurent la gestion du 
fichier à transmettre ou à 
recevoir, et le déroulement du 
protocole. 

La carte SSC est initialisée avec 8 
bits de données, 1 stop bit et pas 
de parité. La vitesse n'est pas 


modifiée. Il faudra la configurer 
au préalable, ou bien à l'aide des 
switches, ou bien grâce à un 
utilitaire de configuration 
(SETSSC.COM -voir n° 26- par 
exemple !). 

Pour lancer un envoi de fichier, 
on entrera la commande : 


XMODE Nomdufichier 
Pour lancer une réception : 
XMODR Nomdufichier 


Il suffit que les deux programmes 
soient lancés dans la même 
minute, chaque programme. 
commente l'état de la 
transmission en indiquant le 
numéro du bloc en cours, 
éventuellement le nombre de 
réémission d'un même bloc en 
cas de problème, et le résultat de 
l'envoi de Bloc (correct, erreur 
etc.) 

La gestion de la carte série est 
réduite au minimum puisqu'il n'y 
a aucun traitement des signaux de 
contrôle. 11 suffit de tester l'état 
des registres émission ou 
réception. À noter que, comme 
pour SETSSC.COM, la routine 
de lecture du port série peut 
retourner au programme appelant 
un caractère frappé au clavier. 
Ceci donne donc un moyen 
éventuel d'interrompre une 
transmission en frappant un code 
CAN (Ctri-X), si vous constatez, 
par exemple, que votre 
programme réémet constamment 
le même bloc, indiquant 
manifestement un problème chez 
votre vis-a-vis. 


La mise en œuvre est donc très 
simple, le choix de la vitesse 
dépendra des conditions 
d'utilisation : 

° en liaison locale par fil entre 
deux machines, la grande fiabilité 
de ce protocole autorise des 
transferts à la vitesse maximale de 
la carte SSC, 19200 bauds. Ceci 
permet des échanges de fichiers 
importants avec une rapidité 
spectaculaire ; 

° en liaison téléphonique, cela 
dépendra évidemment du 
standard utilisé : 300 bauds pour 
Transpac V21, et 1200/75 pour 
V23. Sous XMODEMA, le volume 
d'information échangé est de 132 
octets dans le sens émetteur vers 
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récepteur, pour 1 octet en sens 
inverse. La transmission en V23 
n'est donc intéressante que si 
c'est le programme d'émission 
qui utilise le canal 1200 bauds, 
les codes du programme 
récepteur revenant par le canal 75 
bauds. Ceci suppose donc 
l'utilisation d'un Modem 
répondeur (Mode 2). Si votre 
Modem ne comporte que le mode 
Appel, utilisez plutôt Transpac 
300 bauds, ce sera plus rapide. 


Enfin, dernière remarque, la carte 
SSC est monovitesse. Pour 
transmettre en V23, il vous 
faudra un Modem capable de 
symétriser ses entrées (celui du 


parallèle/série. Il faudra écrire une 
routine d'émission qui charge le 
registre de sortie avec l'octet à 
émettre, et qui attende que ce 
registre soit vide (bit 4 du registre 
d'état) avant de modifier la 
vitesse. 


Aux CP/Mistes 
télémaniaques 


Il faut mentionner ici un point qui 
sort du cadre de cet article, car 
utilisant un matériel trop 
spécifique, la Premium Softcard 
de Microsoft, équipement qui 
représente l'arme absolue pour 





En plus de l'implantation CP/M, 
Microsoft a donc développé un 
O.S. particulier, le 65BIOS, qui 
est en gros une boucle d'attente, 
avec gestion des entrées-sorties 
de l'Apple, d'un buffer de clavier 
et d'un buffer d'imprimante. 
L'auteur a réalisé une modifi- 
cation de ce 65BIOS qui permet 
de gérer quatre buffers : clavier, 
imprimante, réception RS232 et 
émission. Ce programme peut 
utiliser une ou deux cartes SSC 
(par exemple une réception 1200 
bauds et une émission 75 bauds, 
valeurs au hasard !). 


Ceci permet de créer des 
applications de transmissions très 


Minitel par exemple), ou la  l'inconditionnel de CP/M. efficaces. La gestion de la 
solution à deux cartes série, une Cette carte qui utilise le slot 3 transmission des données étant 
émission, une réception. Ceci auxiliaire de l'Apple //e rassemble assurée par le 6502, en temps 


étant, XMODEM rend envisa- 
geable la technique consistant à 
utiliser un port monovitesse, en 
changeant la vitesse de 
transmission selon que l'on lit ou 
écrit, puisque les opérations de 
lecture et d'écriture sont 
alternées. Dans ce cas, il faut 
initialiser avec la vitesse de 
réception, reconfigurer l'ACIA en 
vitesse de transmission uni- 
quement au moment d'émettre, et 
repasser sur la vitesse de 
réception tout de suite après. 
ATTENTION, ne jamais changer 
la vitesse lorsque l'ACIA est en 
train de faire une conversion 


une carte 80 colonnes étendue et 
une carte Z80, avec toutefois une 
différence fondamentale avec la 
Softcard classique : elle utilise un 
Z80 B à 6 Mhz, et d'autre part les 
deux processeurs, 6502 et Z80, 
sont découplés et chacun 
fonctionne sur ses 64ko de RAM 
simultanément, alors que sur la 
Softcard traditionnelle, ils ne 
travaillent qu'à tour de rôle, sur 
les mêmes bus, en se mettant 
alternativement en DMA. Le 
programme d'application tourne 
sur le Z80 tandis que le 6502 joue 
le rôle d'un processeur 
d'entrées-sorties. 


réel, on peut utiliser le Z80 pour 
faire tourner le programmme 
principal sans impératifs de 
rapidité (20Ko de buffer 
réception série), ce qui autorise 
l'utilisation de langages évolués 
(Turbo Pascal, Forth, Basic). A 
titre indicatif, un émulateur de 
terminal Minitel, compilé en 
Forth, occupe moins de 4Ko de 
mémoire, et avec une facilité de 
mise au point et de modifications 
très supérieure. 


Les CP/Mistes télémaniaques 
intéressés peuvent me contacter 
par l'intermédiaire de la revue. 





$ 24 
Source ‘XMODR.SOURCE reed ES 
PRMSG: BIT 0, (IY+5) 
TITLE XMODR : L = LD c, 9 
PR === JP 2, BDOS 
a PUSH DE 
; Réception de fichiers au protocole XMODEM LD DE, MSG4 
; RES 0, (IY+5) 
: JF-R 1986 CALL PRMSGI 
POP DE 
jammmmmmmnnmnmenemmmnmemmmenssnennnnnesss PRMSG1: LD c,3 
î JP BDOS 
; Adresses CP/M ; 
EE Ed ; Affiche le caractère dans E 
BOOT EQU 0 Noesis 
BDOS EQU 5 PRCAR: LD C,2 
FCB EQU 5CH JP BDOS 
BUFFER EQU 80H 
; Messages du programme 
. PHASE 103H » mms 
JP START î 
; MSGO: DB 13,10 
; Routines CP/M ASC "Bad Command...$" 
, mms MSG1: DB 27,'*!" 
LA ASC CR 
; Affiche le message pointé par DE DB 13,10 
Er ASC " XMODEM  Downloading Utility" 
2 points d'entrée, avec et sans saut de ligne DB 13,10 
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RL a TS 2 PRES RUN GRR € En: Liz Lisa CC SRE LL Ci Li. 


ASC ‘ JF-R 1986" 
DB 13,10 
ASC 1 = — ' 


DB 13,10,13,10,'$" 
'Can''t open File' 
DB 13,10,'$" 


MSG3: ASC ‘Prompting Sender $' 
HSGA: DB 13,10,13,10, \S! 
MSG5: ASC " Received Bloc $' 


'xXXX Ok' 
DB 13,10,13,10,'$" 


MSG6: ASC £ Header Error" 
DB 13,10,'$" 

MSG7: ASC Q Checksum Error’ 
DB 13,10, '$" 

MSG8: ASC ! Fatal Error' 
DB 13,10,'$" 

MSG9: ASC ° Timeout ‘ 
DB 13,10,'$" 

MSG10: ASC ù Disk Error' 
DB 13,10,'$" 

MSG14: ASC ch Got something, but ? ? 


DB 13,10, "$" 


MSG11: ASC " Received EOT' 
DB 13,10; "$" 
MSG12: DB 13,10 


ASC ‘File received successfully" 
DB 13,10, '$" 
MSG13: DB 13,10 
ASC "Transmission aborted' 
DB 13,10,'$" 


Constantes et variables du programme 


dé à SN 


T10 EQU 10 ; Temporisation 10 s 

T60 EQU 60 ; Temporisation 1 mn 

MAXTRY EQU 10 ;Nombre d'essais maxi 
BSIZE EQU 128 :Talille Buffer 


; Caractères Ascii du protocole 


SOA EQU 1 
EOT EQU 4 
ACK EQU 6 
NAK EQU 21 
CAN EQU 24 
SUB EQU 26 


; Table de variables, pointée par IY 


COMPT: DS 1 ; Compteur 
NESSAI: DS 1 ;Nb d'essais 
FINI: DS s À ‘Flag fin 
NBLOC: DS 1 ;Bloc courant 
PREBLOC: DS 1 Bloc précedent 
DEBUT: DS 1 ;:Flag départ 
CODE: DS 2; ;Code à envoyer 
; 
REC _BUF: DS BSIZE+4 sBuffer de réception 
PAGE 
START EQU $ Début programme 
LD A, (BUFFER) 
OR A ;:Nom de fichier ? 
LD DE, MSGO 
JP Z, PRMSG1 :Non, retour CCP 
LD DE, MSG1 
CALL PRMSGI 
LA 
LD C,15 ;Ouverture fichier 
LD DE, FCB 
CALL BDOS 
INC A ; Trouvé ? 
JR NZ, PREPAR 
LD C,22 ;Création fichier 
LD DE, FCB 
CALL BDOS 
INC A ;Correct ? 
LD DE, MSG2 
JP Z, PRMSG1 ;Non, je sort 


ÿ 
; Préparation 


D 


% 


ENVOI : 


ENVOI1: 


Attente 


. 
’ 
î 


% 


WAITI1: 


5 
’ 


; Pb réception, 


PURGE : 


RANGE : 


’ 
7 


JR 


LD 
CP 


CALL 
LD 
JP 


INC 
DINZ 


CALL CONF ACIA 

IY, COMPT 

A,1 

{IY+3) ,A ;ler bloc 
A 

(IY+5),A ;début 
(IY+4) ,A ;précédent 
À, 6 

{IY+1),A ;Nb essais 
À, NAK 

(IY+6),A ;Code d'appel 


DE, REC_BUF+3 

C,1AH ;Adresse DMA vers Buffer 
BDOS 

DE, MSG3 

PRMSG1 

0, (IY+5) 


Envoi code d'appel 


LD E,'.! 
PRCAR 
LD A, T10 


(IY+0),A ;Attente 10 s 
DE, REC _BUF ;Buffer d'arrivée 


B, BSIZE+4 

C, (IY+6) ;Caractère 
ECRITURE 

LECTURE ;Q1que chose ? 
NC,RANGE 

(IY+0) ;J'attends encore ? 
NZ, WAIT 

(IY+1) ;Un autre essai ? 
NZ, ENVOI 

DE,MSG9 ;Non, trop tard 
ANNULE 


Boucle interne au Buffer 


CALL LECTURE 
NC, RANGE 


Buffer incomplet 


A, BSIZE+3 

B ;1 car reçu ? 

NZ, PURGE 

DE 

À, (DE) 

EOT ;Fin de transmission ? 
Z,TERMINE ;Oui 


on purge et on refuse 


LD B,5 
SECONDE 
DE, MSG14 
REFUSE 


Remplissage du Buffer de réception 


LD (DE) ,A 
DE 
WAIT1 


Traitement du Bloc reçu 


PRMSG 

IX, REC _BUF 

DE, MSG6 

À, SOH 
(IX+0) 

NZ, REFUSE 

À, (IX+2) 


Header correct ? 


(IX+1) 
NZ, REFUSE 
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CP (IY+4) ;Bloc précédent ? 
JR Z, ACCEPTE 

LD DE, MSG8 

CP (IY+3) Bloc attendu ? 
UR NZ, ANNULE 

XOR À sInit cheksum 


LD IX, REC_BUF+3 
LD B,BSIZE 
CALC CHK: ADD A,(IX+0) 
INC IX 
DUJNZ CALC CHK 


% 


LD DE, MSG7 
cP (IX+0) 
JR NZ, REFUSE 


;Chksum Ok ? 


; Ecriture sur Disque des données 


LS 


LD C,21 
LD DE, FCB 
CALL BDOS 


OR A ;Problème ? 
LD DE, MSG10 
JR NZ, ANNULE ;Oui, on ferme 


“ 


LD À, (IY+3) 

LD (IY+4),A 

INC (IY+3) ;Bloc suivant 
4 


; Accepte le Bloc reçu 


ACCEPTE: LD IX, NUMBLOC 
CALL CONVERS ;:No de bloc en Ascii 
LD DE, NUMBLOC 
LD A, ACK 
SUIVANT : LD (IY+6),A 
LD A,1 
LD (IY+1),A ;1 essai 
CALL PRMSG 
JP ENVOI1 Validation 


u 


; Refuse le Bloc reçu 


JR SUIVANT 


; Annule la transmission 


a 


ANNULE : CALL PRMSG 
LD C, CAN 
CALL ECRITURE 
LD B, 3 
CALL SECONDE 
CALL ECRITURE 
LD DE, MSG13 
JR CLOSE 
; Fin de transmission 


D 


TERMINE : LD DE, MSG11 
CALL PRMSG 
LD C,ACK 
CALL ECRITURE 
LD DE, MSG12 


CLOSE: CALL PRMSG 
LD C,16 ;Ferme le fichier 
LD DE, FCB 
CALL BDOS 
LD DE, BUFFER 
LD C, 1AH 
JP BDOS 
PAGE 


; Routines de service 


; Adresses du port RS232 





Glossaire 


Les messages en anglais simplifient les transmissions 
outre-manche et outre-océan mais si la langue des 








Beatles vous échappe. 
Downloading Téléréception 
Cant open file Ouverture fichier impossible 
Prompting sender Attente de l'émetteur 
Received bloc Bloc reçu 
Header error Erreur d'entête 
Checksum error Erreur de somme de contrôle 
Got something but ??? Bien reçu, mais qu'est-ce ? 
Received EOT Code de fin de fichier reçu 
Uploading Téléchargement 
Waiting for receiver  Attentte du récepteur 
Sending bloc Envoi bloc 
Acknowledged Compris 
Cancelled  Annulé 
File sent successfully Fichier bien transmis 
Transmission aborted Transmission annulée 
Badcommand Erreur de commande 
NSLOT EQU 0E0A0KH ;Carte en slot 2 
DIPSWI EQU NSLOT+1 ;sSwitches 1 
DIPSW2 EQU NSLOT+2 ;sSwitches 2 
RDREG EQU  NSLOT+8 ;Registre lecture 
TDREG EQU  NSLOT+8 ‘Registre écriture 
STATUS EQU  NSLOT+9 Registre d'état 
COMMAND EQU NSLOT+0AH ;Registre de commande 
CONTROL EQU NSLOT+0BH ;Registre de controle 
À Clavier 
KBD EQU 0E000H 


KBDSTR EQU 0E010H 


; Configuration de l'ACIA 


; 8 DATA, 1 STOP, sans Parité, Vitesse courante 
; Utilise À 


CONF_ACIA: LD À, (CONTROL) 
AND 0FH ;Récup. vitesse 
OR 10H ;Data et Stop 


LD (CONTROL) , À 

LD A, 9 ;RTS, DTR, sans parité 
LD (COMMAND) , A 

LD À, (RDREG) :Init RDR 


: Routine de lecture du port RS232. 

Retour avec caractère dans À et Carry à 0, 

ou retour au bout d'une seconde avec Carry à 1. 
Si frappe Clavier, retour avec car. clavier. 
Utilise À, HL, IX 


Se ve 


% % 


LECTURE : LD HL, STATUS 
BIT 3,(HL) ;RDR plein ? 
JR  NZ,LECT2 
LD IX, TEMPO 
XOR À 


LD (IX+0),A 
LD À, 98 
LD (IX+1),A 
LECTI: BIT 3, (AL) 
JR NZ, LECT2 
LD A, (KBD) 
OR A 
JP 


M, LECT3 
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DEC  (IX+0) 
JR NZ, LECTI 
DEC  (IX+1) 

JR NZ, LECTI 


SCF 
RET 
LECT2: DEC HL ;Adresse RDR 
LD A, (HL) 
OR A 
RET 
LECT3: LD (KBDSTR) , À 
AND 7FH 
RET 


; Ecrit le contenu de C. 
; Utilise C et HL 
ECRITURE: LD HL, STATUS 
ECRI1: BIT 4, (AL) ; TDR vide ? 
UR Z,ECRII 
DEC HL ;Adresse RDR 
LD (AL) ,C 


; 
; Boucle d'attente, nb de secondes dans B 


SECONDE : LD IX, TEMPO 
SECONI1: XOR A 
LD (IX+0), A 
LD A,228 ;init. temporisation 
LD (IX+1),A 
SECON2: DEC (IX+0) 
JR NZ, SECON2 
DEC {IX+1) 
JR NZ, SECON2 
DINZ  SECONI1 
RET 


; 


TEMPO: DS 2 ;compteur 


; 
; Range à (IX), sur 3 octets. 
: Utilise À, IX, DE, HL 
CONVERS : LD L,A 

LD H,0 

LD DE, 100 

CALL CONVERI 


LD DE, 10 
CALL CONVERI 
LD À, 30H 


9R L 

LD (IX+0), A 
LD À, (IX+0FEH) 
cP 30H  ;0 ? 
RE 

LD 


T NZ 
A,20H ;on met un Blanc 
LD (IX+0FEH), À 
LD À, (IX+0FFH) 
CP 30H 
RET NZ 


LD A, 20H 
LD (IX+0FFH), À 


RET 
CONVERI1 : XOR A 
CONVER2 : SBC HL, DE 
JR C, CONVER3 
INC A 
JR CONVER2 
CONVER3: ADD HL, DE 
OR 30H 
LD (IX+0),A 
INC IX 
RET 
; 
END 


Source ‘XMODE.SOURCE’ 


TITLE XMODE 











: JF-R 1986 


; Adresses CP/M 


BOOT EQU 0 

BDOS EQU 5 

FCB EQU 5CH 

BUFFER EQU 80H 
- PHASE 103H 
JP START 





JP BDOS 


DT 


JP BDOS 


Messages du programme 


mess m———— 


SuSss 66 6 





MSGO: DB 13,10 
ASC "Bad Command...s$" 
MSG1: DB 27,1*! 
ASC M emmener eme ee mm nm en r 
DB 13,10 
ASC " XMODEM Uploading Utility" 
DB 13,10 
ASC ° JF-R 1986" 
DB 13,10 
ASC J < 
DB 13,10,13,10,; "S! 
MSG2: ASC ‘Can''t open File' 
DB 13:20; "$! 
MSG3: ASC ‘Waiting for receiver.' 
DB 13,10,13,10, "$" 
DS 1 
MSGA4: ASC ‘xx Sending Bloc ‘ 
NUMBLOC : ASC xxx $'" 
DS 1 
MSGS5: ASC "xx Sending EOT 
ASC , $"' 
MSG6: ASC "Acknowledged' 
DB 13,10,10,'$" 
MSG7: ASC ‘Non Acknowledged' 
DB 13,10,'$" 
MSG8: ASC ‘Cancelled' 
DB 13,10,'$" 
MSG3: ASC ‘Timeout' 
DB 13,10,'$S" 
MSG10: DB 13,10 
ASC ‘File sent successfully" 
DB 13,10,'S$S" 
MSG11: DB 13,10 
ASC ‘Transmission aborted'" 


DB 13,10,'S" 


Constantes et variables du programme 


T10 EQU 10 ; Temporisation 10 s 
T60 EQU 60 ; Temporisation 1 mn 
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MAXTRY EQU 10 ;Nombre d'essais maxi 
BSIZE EQU 128 :Taille Buffer 


se 


Caractères Ascii du protocole 


SOH EQU 1 
EOT EQU 4 
ACK EQU 6 
NAK EQU 21 
CAN EQU 24 
SUB EQU 26 


; Table de variables, pointée par IY 


COMPET: DS 1 ; Compteur 
NESSAI: DS 1 ;:Nb d'essais 
FINI: DS 1 :Flag fin 
NBLOC: DS 1 ;Bloc courant 
PAGE 
START EQU $ ;Début programme 
LD À, (BUFFER) 
OR A :Nom de fichier ? 
LD DE, MSGO 
JP 3, PRMSG Non, retour CCP 
LD DE,MSG1 ;En-tete 


CALL PRMSG 


D 


LD C,15 ;Ouverture fichier 

LD DE, FCB 

CALL BDOS 

INC A ;Fichier trouvé ? 

LD DE, MSG2 

JP Z, ABORT ;Non, erreur. 
; Préparation 


CALL CONF ACIA 
LD IY, COMPT 


DT 


XOR À 

LD (IY+2),A ;Pas fini 
INC À 

LD {IY+3),A ;Bloc 1 
LD A, T60 

LD (IY+0),A ;1 minute 


LD DE, MSG3 
CALL PRMSG 
Attente récepteur 


WAIT REC: CALL LECTURE 
JR NC, WAIT2 
WAITI: DEC (IY+0) 


JR  NZ,WAIT REC 


Caractère ? 


;J'attends encore ? 


LD DE,MSG9 ; Temps maxi 
JP ABORT 
WAIT2: LD DE,MSG8 


CP CAN ;Cancel ? 
JP Z, ABORT 

CP NAK 

JR NZ, WAIT1 


RDBUF EQU $ 
LD C, 20 
LD DE, FCB 
CALL BDOS 
OR A ;Fin de fichier ? 
JR Z, ENVOI Non, envoi du Bloc 


% 


SET 0,(IY+2) ;Fini 
LD IX, BUFFER+BSIZE-1 
LD À, SUB ;Fin du bloc 
CP (IX+0) + = Ctrl-8 ? 
JR Z, ENVOI 
;: Renvoyer un bloc plein de Ctrl-Z 
LD IX, BUFFER 


LD B, BSIZE 
RDBUF1: LD (IX+0),A 
INC IX 


DINZ  RDBUF1 


RES 0, (IY+2) ;Pas fini 


ENVOI: LD A,MAXTRY ;10 essais max 
LD (IY+1),A 


ENVOI1: LD B, (IY+1) 
LD À, MAXTRY +1 
SUB B :No de l'essai en cours 
BIT 0, (IY+2) ;Fini ? 
JR Z,ENVOIZ2 ;Non, sortie du Bloc 


, 


LD IX, MSG5-1 
CALL CONVERS 
LD DE, MSG5 
CALL PRMSG 


:No essai en Ascii 


LD C,EOT 
CALL ECRITURE 
JR VALID 

ENVOI2: LD IX, MSG4-1 
CALL CONVERS :No essai 


LD À, (IY+3) ;No Bloc 
LD IX, NUMBLOC 

CALL CONVERS 

LD DE, MSG4 

CALL PRMSG 


LD C,SOH ;Header 
CALL ECRITURE 

LD A, (IY+3) 

LD C,A :No Bloc 
CALL ECRITURE 


LD C, A ;:255-No Bloc 
CALL ECRITURE 


XOR A ;sInit Checksum 
LD IX, BUFFER 
LD B, BSIZE 

ENV_BCL: LD C, (IX+0) ;Caractère 
ADD A,C 
INC IX 


CALL ECRITURE 

DINZ ENV _BCL 

LD C,A /Checksum 
CALL ECRITURE 


Se ve 


Attente validation 


VALID: LD A,T10 ;T max 
LD (IY+0),A 
VALIDI: CALL LECTURE ;Réponse ? 
JR NC, VALID4 ;Oui 
VALID2: DEC (IY+0) ;J'attends encore ? 


JR NZ, VALIDI ;Oui 
LD DE, MSG9 
CALL PRMSG 


; Si pas de réponse, on renvoi le Bloc actuel 

VALID3: DEC (IY+1) Encore un essai ? 
JR NZ, ENVOIIL ;Oui, renvoi du Bloc 
JP ABORT1 





VALID4: cp CAN 
JR NZ, VALID5 
LD DE, MSG8 

JR ABORT 
JR 
LD 


VALIDS5: 


cp NAK 
NZ, VALID6 
DE, MSG7 

CALL PRMSG 

JR VALID3 

VALID6: cP ACK 

JR NZ, VALID2 
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LD DE, MSG6 
CALL PRMSG 
BIT 0,(IY+2) ;Fini ? 
JR NZ, TERMINE 
INC (IY+3) ;Bloc suivant 
JP RDBUF 
; Fin de transmission 
TERMINE : LD DE, MSG10 
JP PRMSG ;Message et retour CCP 


ABORT:" CALL PRMSG 
ABORT1: LD DE,MSG11 
JP PRMSG 
PAGE 


Routines de service 





Se Ve ve 


NSLOT EQU 0E0A0H ;Carte en slot 2 

DIPSWI EQU NSLOT+1 Switches 1 

DIPSW2 EQU NSLOT+2 sSwitches 2 

RDREG EQU  NSLOT+8 ;Registre lecture 

TDREG EQU  NSLOT+8 sRegistre écriture 

STATUS EQU NSLOT+9 Registre d'état 
COMMAND EQU NSLOT+0AH ;Registre de commande 
CONTROL EQU NSLOT+0BH ;Registre de controle 
: Clavier 

KBD EQU 0E000H 

KBDSTR EQU 0E010H 


; 8 DATA, 1 STOP, sans Parité, Vitesse courante 
: Utilise À 


CONF_ACIA: LD A, (CONTROL) 
AND OFH ;Récup. vitesse 
OR 10H ‘Data et Stop 
LD (CONTROL) , À 
LD A, 9 :RTS, DTR, sans parité 


LD (COMMAND) , À 
LD A, (RDREG) sInit RDR 
RET 


;: Retour avec caractère dans À et Carry à 0, 

; ou retour au bout d'une seconde avec Carry à 1. 
; Si frappe Clavier, retour avec car. clavier. 

; Utilise À, HL, IX 


LECTURE : LD HL, STATUS 
BIT 3, (HL) ;RDR plein ? 
JR NZ, LECT2 
LD IX, TEMPO 


XOR A 

LD (IX+0),2A 

LD A, 98 

LD (IX+1),A 
LECTI: BIT 3,(HL) 

JR NZ, LECT2 

LD A, (KBD) 

OR A 

JP M, LECT3 


DEC  (IX+0) 
JR NZ, LECTI 
DEC  (IX+1) 
JR NZ, LECTI 


SCF 
RET 
LECT2: DEC HL ;Adresse RDR 
LD A, (HL) 
OR À 
RET 
LECT3: LD (KBDSTR) , À 
AND 7FH 


RET 


; Routine d'écriture du port RS232 
; Ecrit le contenu de C. 
; Utilise C et HL 
ECRITURE: LD AL, STATUS 
ECRI1: BIT 4, (BL) ; TDR vide ? 
JR Z,ECRII 
DEC HAL ;Adresse RDR 
LD (AL) ,C 


; Boucle d'attente, nb de secondes dans B 


SECONDE : LD IX, TEMPO 
SECONI : XOR A 
LD (IX+0),A 

LD A,228 ;init. temporisation 
LD (IX+1),A 
JR 

DE 

JR 


SECON2: DEC (IX+0) 
NZ, SECON2 
C: (IX+1) 
NZ, SECON2 
DJINZ SECON1 
RET 
TEMPO: DS 2 ;compteur 


; Conversion en Ascii du contenu de À 


; Range à (IX), sur 3 octets. 
;: Utilise À, IX, DE, HL 
CONVERS : LD L,A 

LD 4,0 

LD DE, 100 

CALL CONVERI 


LD DE,10 
CALL  CONVERI 
LD A, 30H 

OR pa 

LD (IX+0),A 


LD À, (IX+0FEH) 

CP 30H #0 52 

RET NZ 

LD A,20H ;on met un Blanc 
LD (IX+0FEH), À 

LD A, (IX+0FFH) 


cp 30H 
RET NZ 
LD A, 20H 
LD (IX+0FFH), À 
RET 
CONVERI : XOR A 
CONVER2 : SBC HL,DE 
JR C, CONVER3 
INC A 
JR CONVER2 
CONVER3: ADD  HL,DE 
OR 30H 
LD (IX+0), A 
INC IX 
RET 
END 








0100 00 00 00 C3 6D 02 0E 09 C3 05 00 0E 02 C3 05 00 
0110 0D COCA 42 61 64 20 43 6F 6D 6D 61 6E 64 2E 2E 2E 
0120 24 1B 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 
0130 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D OD CA 
0140 20 58 4D 4F 44 45 4D 20 20 20 55 70 6C 6F 61 64 
0150 69 6E 67 20 55 74 69 6C 69 74 79 OD OA 20 4A 46 
0160 2D 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 
0170 20 20 20 20 31 39 38 36 OD OA 20 2D 2D 2D 2D 2D 
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0180 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


0190 2D 2D 2D 2D 2D 0D OA OD OA 24 43 61 6E 27 74 20 0310 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
01A0 6F 70 65 6E 20 46 69 6C 65 0D 0A 24 57 61 69 74 0320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
01B0 69 6E 67 20 66 6F 72 20 72 65 63 65 69 76 65 72 0330 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
01C0 2E 0D OA OD OA 24 E5 78 78 20 20 53 65 6E 64 69 0340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
01D0 6E 67 20 42 6C 6F 63 20 78 78 78 20 20 20 20 20 0350 00 00 00 00 00 00 00 00 3A 80 00 B7 11 25 01 CA 
01E0 24 E5 78 78 20 20 53 65 6E 64 69 6E 67 20 45 4F 0360 1B 01 11 36 01 CD 1B 01 0E OF 11 5C 00 CD 05 00 
01F0 54 20 20 20 20 20 20 20 20 20 20 24 41 63 6B 6E 0370 3C 20 OF 0E 16 11 5C 00 CD 05 00 3C 11 B7 01 CA 
0200 6F 77 6C 65 64 67 65 64 O0D OA OA 24 4E 6F 6E 20 0380 1B 01 CD A6 04 FD 21 CD 02 3E 01 FD 77 03 AF FD 
0210 41 63 6B 6E 6F 77 6C 65 64 67 65 64 OD 0A 24 43 0390 77 05 FD 77 04 3E 06 FD 77 01 3E 15 FD 77 06 11 
0220 61 6E 63 65 6C 6C 65 64 O0D OA 24 54 69 6D 65 6F 03A0 D7 02 0E 1A CD 05 00 11 C9 01 CD 1B 01 FD CB 05 
0230 75 74 OD OA 24 O0D 0A 46 69 6C 65 20 73 65 6E 74 03B0 C6 1E 2E CD 20 01 3E OA FD 77 00 11 D4 02 06 84 
0240 20 73 75 63 63 65 73 73 66 75 6C 6C 79 OD OA 24 03C0 FD 4E 06 CD EE 04 CD B9 04 30 2C FD 35 00 20 F6 
0250 O0D 0A 54 72 61 6E 73 6D 69 73 73 69 6F 6E 20 61 03D0 FD 35 01 20 DC 11 41 02 C3 70 04 CD B9 04 30 17 
0260 62 6F 72 74 65 64 O0D OA 24 E5 E5 E5 E5 3A 80 00 03E0 3E 83 B8 20 07 1B 1A FE 04 CA 85 04 06 05 CD F8 
0270 B7 11 10 01 CA 06 01 11 21 01 CD 06 01 0E OF 11 03F0 04 11 66 02 C3 6C 04 12 13 10 E0 11 EO 01 CD 06 
0280 5C 00 CD 05 00 3C 11 9A 01 CA 9E 03 CD A7 03 FD 0400 01 DD 21 D4 02 11 FE 01 3E 01 DD BE 00 20 5D DD 
0290 21 69 02 AF FD 77 02 3C FD 77 03 3E 3C FD 77 00 0410 7E 02 2F DD BE 01 20 54 FD BE 04 28 35 11 2C 02 
02A0 11 AC 01 CD 06 01 CD BA 03 30 0B FD 35 00 20 F6 0420 FD BE 03 20 4B AF DD 21 D7 02 06 80 DD 86 00 DD 
02B0 11 2B 02 C3 9E 03 11 1F 02 FE 18 CA 9E 03 FE 15 0430 23 10 F9 11 14 02 DD BE 00 20 31 0E 15 11 5C 00 
02C0 20 E9 0E 14 11 5C 00 CD 05 00 B7 28 20 FD CB 02 0440 CD 05 00 B7 11 52 02 20 27 FD 7E 03 FD 77 04 FD 
02D0 C6 DD 21 FF 00 3E 1A DD BE 00 28 11 DD 21 80 00 0450 34 03 DD 21 FO 01 CD 14 05 11 F0 01 3E 06 FD 77 
02E0 06 80 DD 77 00 DD 23 10 F9 FD CB 02 86 3E OA FD 0460 06 3E 01 FD 77 01 CD 06 01 C3 B6 03 3E 15 18 EE 
02F0 77 01 FD 46 01 3E 0B 90 FD CB 02 46 28 14 DD 21 0470 CD 06 01 0E 18 CD EE 04 06 03 CD F8 04 CD EE 04 
0300 El 01 CD 15 04 11 E2 01 CD 06 01 0E 04 CD EF 03 0480 11 B4 02 18 0E 11 85 02 CD 06 01 0E 06 CD EE 04 
0310 18 3E DD 21 C6 01 CD 15 04 FD 7E 03 DD 21 D8 01 0490 11 95 02 CD 06 01 0E 10 11 5C 00 CD 05 00 11 80 
0320 CD 15 04 11 C7 01 CD 06 01 0E 01 CD EF 03 FD 7E 04A0 00 0E 1A C3 05 00 3A AB E0 E6 OF F6 10 32 AB E0 
0330 03 4F CD EF 03 2F 4F CD EF 03 AF DD 21 80 00 06 04B0 3E 09 32 AA EO0 3A A8 E0 C9 21 A9 E0 CB 5E 20 24 
0340 80 DD 4E 00 81 DD 23 CD EF 03 10 F5 4F CD EF 03 04c0 DD 21 12 05 AF DD 77 00 3E 62 DD 77 01 CB 5E 20 
0350 3E OA FD 77 00 CD BA 03 30 13 FD 35 00 20 F6 11 04D0 13 3A 00 E0 B7 FA E8 04 DD 35 00 20 FO DD 35 01 
0360 2B 02 CD 06 01 FD 35 01 20 88 C3 A1 03 FE 18 20 04E0 20 EB 37 C9 2B 7E B7 C9 32 10 E0 E6 7F C9 21 A9 
0370 05 11 1F 02 18 28 FE 15 20 08 11 OC 02 CD 06 01 04F0 E0 CB 66 28 FC 2B 71 C9 DD 21 12 05 AF DD 77 00 
0380 18 E3 FE 06 20 D4 11 FC 01 CD 06 01 FD CB 02 46 0500 3E E4 DD 77 01 DD 35 00 20 FB DD 35 01 20 F6 10 
0390 20 06 FD 34 03 C3 C2 02 11 35 02 C3 06 01 CD 06 0510 EB C9 CD 96 6F 26 00 11 64 00 CD 40 05 11 OA 00 
03A0 01 11 50 02 C3 06 01 3A AB E0 E6 OF F6 10 32 AB 0520 CD 40 05 3E 30 B5 DD 77 00 DD 7E FE FE 30 CO 3E 
03B0 E0 3E 09 32 AA E0 3A A8 E0 C9 21 A9 EO CB 5E 20 0530 20 DD 77 FE DD 7E FF FE 30 C0 3E 20 DD 77 FF C9 
03C0 24 DD 21 13 04 AF DD 77 00 3E 62 DD 77 01 CB 5E 0540 AF ED 52 38 03 3C 18 F9 19 F6 30 DD 77 00 DD 23 
03D0 20 13 3A 00 E0 B7 FA E9 03 DD 35 00 20 FO DD 35 0550 C9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


03E0 01 20 EB 37 C9 2B 7E B7 C9 32 10 E0 E6 7F C9 21 
03F0 A9 E0 CB 66 28 FC 2B 71 C9 DD 21 13 04 AF DD 77 
0400 00 3E E4 DD 77 01 DD 35 00 20 FB DD 35 01 20 F6 
0410 10 EB C9 3E FF 6F 26 00 11 64 00 CD 41 04 11 OA 
0420 00 CD 41 04 3E 30 B5 DD 77 00 DD 7E FE FE 30 CO 


e 
0430 3E 20 DD 77 FE DD 7E FF FE 30 C0 3E 20 DD 77 FF 12 fonctions de base, 
0440 C9 AF ED 52 38 03 3C 18 F9 19 F6 30 DD 77 00 DD e 
0450 23 C9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 200 disques, 


500 programmes. 





Dump hexadécimal de XMODR.COM 


0100 00 00 00 C3 58 03 FD CB 05 46 0E 09 CA 05 00 D5 
0110 11 DB 01 FD CB 05 86 CD 1B 01 D1 0E 09 C3 05 00 
0120 0E 02 C3 05 00 OD OA 42 61 64 20 43 6F 6D 6D 61 
0130 6E 64 2E 2E 2E 24 1B 2A 20 2D 2D 2D 2D 2D 2D 2D 
0140 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 
0150 2D 2D 2D 2D 2D 0D 0A 20 58 4D 4F 44 45 4D 20 20 
0160 20 44 6F 77 6E 6C 6F 61 64 69 6E 67 20 55 74 69 
0170 6C 69 74 79 OD OA 20 4A 46 2D 52 20 20 20 20 20 
0180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 
0190 39 38 36 OD 0A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 
01A0 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 
01B0 2D 2D 0D OA 0D OA 24 43 61 6E 27 74 20 6F 70 65 


ss) 
É = 
> 
og 
b0 
cg 
El 
= 
+) 
rs] 
Q] 
= 
& 
2 
= 
e 
< 


01C0 6E 20 46 69 6C 65 OD OA 24 50 72 6F 6D 70 74 69 Capture le catalogue, 

01D0 6E 67 20 53 65 6E 64 65 72 20 24 0D OA OD OA 24 ù 

01E0 20 52 65 63 65 69 76 65 64 20 42 6C 6F 63 20 24 Imprime, 

O1F0 78 78 78 20 20 20 20 4F 6B OD OA OD OA 24 20 20 e 

0200 20 20 20 20 20 48 65 61 64 65 72 20 45 72 72 6F Archive, 

0210 72 0D CA 24 20 20 20 20 20 20 20 43 68 65 63 6B 

0220 73 75 6D 20 45 72 72 6F 72 0D OA 24 20 20 20 20 Retrouve les programmes de vos 
0230 20 20 20 46 61 74 61 6C 20 45 72 72 6F 72 OD OA disquettes des trois DOS 


0240 24 20 20 20 20 20 20 20 54 69 6D 65 6F 75 74 0D 
0250 0A 24 20 20 20 20 20 20 20 44 69 73 6B 20 45 72 
0260 72 6F 72 O0D 0A 24 20 20 20 20 47 6F 74 20 73 6F 


0270 6D 65 74 68 69 6E 67 2C 20 62 75 74 20 3F 20 3F 180,00 F franco France métropolitaine 


0280 20 3F OD 0A 24 20 52 65 63 65 69 76 65 64 20 45 
0290 4F 54 OD OA 24 OD OA 46 69 6C 65 20 72 65 63 65 Badaroux ( A 
02A0 69 76 65 64 20 73 75 63 63 65 73 73 66 75 6C 6C ® = 


02B0 79 OD OA 24 OD OA 54 72 61 6E 73 6D 69 73 73 69 144, rue Legendre : 75017 Paris 


02C0 6F 6E 20 61 62 6F 72 74 65 64 0D 0A 24 00 00 00 


02D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Tél. 4 (1) 47 57 91 11 


02E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
02F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
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CLM d: BBD. 


Word est une marque déposée par Microsoft. Writer Plus est une marque déposée par A.C.I. 


Cette fois Gutenberg n 





Gutenberg et ses associés, des gens 
très perfectionnistes au demeurant, 
n’hésitant pas à regarder à la loupe le 
moindre détail, n'avaient pourtant 
fait que la moitié du travail. 

Le pouvoir de l'édition c’est bien, 
pouvoir éditer soi-même, c’est mieux. 


C'est d’ailleurs le seul moyen de 
pouvoir parvenir à la vraie liberté d’ex- 
pression. Cela Gutenberg n’y avait pas 
songé. 

En toute bonne foi, il croyait fer- 
mement dans les vertus de la vis à 
bois et d’une imprimerie pour tout le 
monde. 


Chez Apple, nous croyons aux res- 
sources de l'individu et à l'édition 
personnelle. 

Par contre pour créer son atelier, 
Macintosh a fait comme Gutenberg, il 
s'est associé avec la “Laser Writer? 
l'imprimante à laser d'Apple. A la 
seule différence que si 31 assistants 
se bousculent autour d’une presse, 

31 Macintosh reliés par AppleTalk se 
partagent aisément une Laser Writer. 


Mais, malgré son million d'octets de 
mémoire morte (extension LaserWriter 
Plus) et sa résolution de130 points/cm, 
la LaserWriter ne serait qu'une version 


Gutenberg 1395-1468 
a inventé l'imprimerie. 


légèrement améliorée de la presse en 
bois sans la puissance et les capacités 
graphiques de Macintosh Plus. 





Apple Computer France, Avenue #2 





aura pas le dernier mot. 


C'est-à-dire, un méga-octet de 
mémoire extensible à 4 méga-octets, 
un nouveau lecteur de disque interne 
double face 800K et en option un dis- 
que dur de 20 méga-octets, ce qui 
permet de stocker des milliers de 
pages de documents. 

Et comme toujours, Macintosh Plus 
met à votre disposition tous ses fameux 
outils de bureau, pour couper, coller, 
remodeler le texte, choisir les carac- 
tères, mélanger texte et dessin, etc. 





Au commencement de l'édition, 
il y a l'écriture: avec des logiciels de 
traitement de texte comme MacWrite, 
Word ou Writer Plus, le vrai problème 
des auteurs c’est l'inspiration. 


Page Maker 





ZA. de Courtabœuf, B.P 131, 91944 Les Ulis Cedex. 


Le texte si brillant soit-il ne suffit 
pas. Avec MacPaint et MacDraw pour 
illustrer, tracer des schémas et des 
dessins techniques, définir des cadres, 
avec un logiciel comme Page Maker 
pour organiser et mettre en page, Vos 
rapports d'entreprise, vos formulaires, 
vos manuels, votre journal interne, 
pour ne citer qu'eux, laisseront de vous 
une excellente impression. Et vous 
pourrez toujours tout modifier, y 
compris à la dernière minute! 


MacDrau 


MacWrite 





Pour Apple, il n’y a pas de petits 
et de grands écrivains, de littérature 
de bureau et de littérature tout court : 
tout le monde est logé à la même 
enseigne, celle de la qualité. 

Avec la LaserWriter, une impression 
impeccable est à la portée de tous. 
Elle vous propose en effet onze 
familles de typographies (extension 
LaserWriter Plus), imprime sur papier, 
sur calque ou sur transparents et 
fournit des documents de qualité 
bromure. 


LaserWriter 


Et si vous voulez vraiment faire 
les choses en grand, Macintosh peut 
aussi se connecter directement à une 
photocomposeuse d'imprimerie. 


En fait, Apple ne vous offre rien 
de plus que votre imprimeur, sauf 
que vous n'aurez pratiquement plus 
besoin de lui. 

Désormais, c'est vous, l'éditeur, 
qui éprouverez la sensation de 
Gutenberg il y a 436 ans lorsqu'il 
contempla son premier document. 

C'est ainsi qu'Apple vous offre le 
meilleur de vous-même. 





Macintosh est une marque sous licence chez Apple Computer, Inc. Apple, le logo Apple, LaserWriter, Apple Talk, MacWrite et MacDraw sont des marques déposées d'Apple Computer, Inc. Page Maker est une marque déposée d'Aldus Corps. 























Vous avez sans doute remarqué que, 
lorsqu'une application ouvre un nou- 
veau document, son format d'impres- 
sion initial est rarement celui souhaité 
(il s'agit généralement du format ‘Lettre 
américaine’). Ayant souvent oublié de 
choisir immédiatement le format Ad, 
nous avons parfois dû refaire totalement 
la mise en page d'un texte, le format 
‘Lettre américaine’ étant plus court que 
le format ‘Lettre Ad’. 


Nous avons donc décidé de nous attaquer 
au problème, avec l'aide de MacsBug et 
REdit. La solution en fin de compte est 
assez simple : 


+ dans le document ImageWriter (ou 
Laser Writer) se trouvent trois res- 
sources de type ‘PREC’. Deux d'entre- 
elles ont la même longueur que le 
‘Print Record’ utilisé par la plupart des 
routines du ‘Printing Manager’ (la troi- 
sième contient les dimensions et noms 
des différents formats de papier) ; 
+ la ressource numéro 1 contient le 
‘Print Record’ utilisé pour afficher le 
dialog du ‘Job’, c'est-à-dire la qualité 
d'impression. etc. Celui-ci ne pose pas 


MISE EN PAGE 


GEORGES ZWINGELSTEIN 


Imagelbriter 


© Lettre US 
© Légal us 
© Papier informatique 


Orientation 


Papier : 


Laserlriter 


Papier : O Lettre américaine © Format A4 
OFormatBS ou 
© Paysage 
Œ Substituer les caractères ? [] Finition ? 


© Légal américain 


Orientation:  ©Portrait 


de problème puisqu'il est enregistré à 
chaque utilisation ; 


+ la ressource numéro 0 contient le 

‘Print Record’ qui nous intéresse : 
celui du dialogue du style (Format 
d'impression, orientation, etc.) qui, lui, 
n'est pas modifié mais est utilisé par 
l'application afin de connaître la taille 
d'une page dans le nouveau document. 


© Format A4 
© Format B5 


Effets spéciaux : [] Portrait ajusté 
[Réduction 50 % 
[] Pas de saut de page 


[es ]% 


Réduire 


Agrandir 





La mini-application proposée ici ne fait 
que charger cette ressource, s'en servir 
pour afficher le dialogue du style et 
enfin enregistrer le résultat, modifié par 
les sélections dans le dialogue, en 
remplaçant l'ancienne ressource. ä 





Source Mep.Asm 


RÉ RRARRRRÉRÉRÉRÉRÉRÉRRÉRAARRRRARÉREÉÉRÉÉE À 


Fichier ‘Mise en Page.Asm’ 


mise en page par défaut 
(Format du papier, orientation 
etc.) 


; 
a 
î 
: Modifie la ressource contenant la 
a 
î 
a 


; G. Zwingelstein 
: 19/9/86 


Include PrEqu.Txt 


. TRAP _InitGraf SAB6E 
. TRAP _IinitFonts SABFE 
. TRAP _FlushEvents $AO 32 
. TRAP _Initwindows $A91 

- TRAP _InitMenus $A930 
. TRAP _InitDialogs $A97B 
-TRAP _TEInit $A9CC 
- TRAP _InitCursor $A8SC 
- TRAP _GetResource $A9A0 
. TRAP _HNoPurge $AO4A 
. TRAP _ChaäangedResource $AGAA 
. TRAP _WriteResource $A9B0O 
.TRAP _HPurge $A049 
.TRAP _GetNewDialog $A97C 
-TRAP _DisposDialog $A983 
. TRAP _GetDIitem $A98D 
. TRAP _SetDItem $SA9B8E 
. TRAP _PenSize $A89B 
.«. TRAP _InsetRect SABA9 
- TRAP FrameRoundRect $A8BO 


. TRAP ShowWindow $A915 
.TRAP _ModalDialog $A991 
- TRAP _ResError $A9AF 
. TRAP _HLock $A029 
. TRAP _HUnLock $AO2A 
- TRAP _ParamText $A98B 
.TRAP _StopAlert SA986 
.TRAP _Pack? SA9EE 
; Constantes 
okButton EQU 2 
numTostrinqg EQU 0 
Macro 
MACRO _PackCali 
MOVE +1,-(SP) 
+2 
ENDM 
MACRO _NumToString 
_PackCall fNumToString,_Pack7 
ENDM 
* Programme seen eee 
Start 
BSR InitManagers 
CLR.B (SP) 
MOVE #128,-(SP) 
JSR Dialog 
MOVE.B (SP)+,D0 
BEQ e1 
BSR GetDefauit 
ei RTS 


: Initialise les ‘Managers’ ---------- 


InitManagers 
PEA -4 (A5) 
_InitGraf 


_InitFonts 

MOVE,.L #50000FFFF, DO 
_FlushEvents 
_InitWindows 
_InitMenus 

CLR.L - (SP) 
_InitDialogs 

_TEInit 

_InitCursor 

RTS 


? Dialogue ==="... 
: Affiche le dialogue de Numéro 
DialogID et retourne vrai si Bouton 
: ‘OK' Choisi, faux sinon. 

: Le Bouton 'OK' doit être le premier 
: dans la définition du dialogue. 

; 11 doit y avoir un Userltem en 3ième 
; position. 


:Variables dans la pile : 


*DialogID EQU 
sitemHit EQU 10 
;: Variables locales : 
:DialogPtr EQU -4 
: Type EQU -6 
item EQU -10 
box EQU -18 
Dialog 
LINK A6,4#-18 
CLR.L (SP) 
MOVE 8(A6),-(SP) 
CLR.L - (SP) 
MOVE.L #-1,-(SP) 
_GetNewDialog 
MOVE. L (SP)+,-4 (A6) 
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: Initialise ProcPtr du Userltem vers 
; Procédure qui entoure le bouton par 
; défaut. 


MOVE.L -4(A6),-(SP) 
MOVE #3,-(SP) 
PEA -6(A6) 
PEA —-10 (A6) 
PEA -18 (A6) 
_GetDitem 
MOVE.L -4(A6),-(SP) 
MOVE #3,-(SP) 
MOVE -6(A6),-(SP) 
PEA OutLineButton 
PEA —18 (A6) 
_SetDitem 

ModalLoop attend une action 
CLR.L (SP) 
PEA 10 (A6) 
_ModalDialog 
CMP #okButton,10(A6) 
SEQ 10 (A6) 

;Fin du dialog 
MOVE.L -4(A6),-(SP) 
_DisposDialog 
UNLK A6 
MOVE.L  (SP)+,A0 
ADDQ.L  #2,SP 
JMP (A0) 


Entoure le bouton par défaut (le 
numéro 1) 

cf Inside 1-407 82 et I-405 $16-18 
Variables dans la pile : 


itemNo EQU 8 
WindowPtr EQU 10 
Variables Locales : 
Type EQU -2 
ItemHandle EQU -4+Type 
Box EQU -B+ItemHandle 
OutLineButton 
LINK A6,#-14 
MOVE.L 10(A6),-(SP) 
MOVE #1,-(SP) 
PEA —2(A6) 
PEA -6(A6) 
PEA 14 (A6) 
_GetDItem 
MOVE #3,-(SP) 
MOVE #3,-(SP) 
_PenSire 
PEA -14 (A6) 
MOVE #-4,-(SP) 
MOVE #-4,-(5P) 
_InsetRect 
PEA -14 (A6) 
MOVE #16,-(SP) 
MOVE #16,-(SP) 
_FrameRoundRect 
UNLK A6 
MOVE.L {SP)+,A0 
ADDQ.L #6,5P 
JMP (A0) 


GetDefault ---------—mmmmmu——— 
Affiche le dialog de la mise en page 
et enregistre les modif. 

Variable locale 


î 
; 
; 
; 


hPrintRec EQU —4 
GetDefault 
LINK A6, #hPrintRec 


JSR PrOpen 


Récupère ressource de type ‘“PREC’ du 
fichier ImageWriter. 


CLR.L — (SP) 
MOVE.L  #'PREC',-(SP) 
MOVE #0,-(SP) 
_GatResource 
MOVE. L {SP)+,hPrintRec (A6) 
BNE el 
: Erreur chargement ressource. 
MOVE #1,-(5SP) 
CLR - (SP) 
JSR StopAlert 


BRA @10 

: Protège la ressource “PREC”’ 

ei MOVE, L hPrintRec (A6), A0 
_HNoPurge 

; Valide la ressource “PREC'’ 
CLR.B - (SP) 
MOVE. L hPrintRec(A6),-(SP) 
JSR PrValidate 
MOVE.B {SP)+,D0 

: Affiche le dialog de la mise en page 
CLR.B (SP) 
MOVE.L hPrintRec(A6),-(SP) 
JSR PrStlDialog 
MOVE.B {SP)+,D0 
BEQ e9 


Marque la ressource comme modifiée 


MOVE.L  hPrintRec(A6),-{(SP) 
_ChangedResource 

CLR — (SP) 

_Beskrror 

MOVE (SP)+,D0 

BEQ e7 


Erreur fonction ChangedRessource 
(disquette protégée en écriture ou 
fichier protégé) 


CMP #-44,D0 
BEQ ea 

CMP #-45,D0 
BEQ e3 

CMP #-46,D0 
BEQ @e2 

: Erreur Inconnue 

MOVE #10,-(SP) 
MOVE D0,-(SP) 
JSR StopAlert 
BRA e9 


: Le volume est verrouillé 


e2 MOVE #2,-(SP) 
CLR (SP) 
JSR StopAlert 
BRA e9 


: Le fichier est verrouillé 


e3 MOVE #3,-(SP) 
CLR — (SP) 
JSR StopAlert 
BRA e9 


: Disquette protégée en écriture 


@4 MOVE #4,-(SP) 
CLR -(SP) 
JSR StopAlert 
BRA @e9 


: Enregistre la ressource 


e7 MOVE.L  hPrintRec(A6),-(SP) 
_MriteResource 
CLR (SP) 
_RasError 
MOVE {SP)+,D0 
BEQ @9 
MOVE #5,-(SP) 
MOVE D0,-(SP) 
JSR StopAlert 


: Débloque la ressource 


@9 MOVE.L hPrintRec (A6), A0 
_HPurge 
@10 JSR PrClose 
UNLK A6 
RTS | 
StopAlert -----=————————— 


Affiche la StopAlert d'ID 128 avec 
message dont l'ID est dans la pile 
et No de l'erreur (si non nul) 
Variables dans la pile 


mu ne ne ne ne ne se se 


ErrNum EQU 8 
StriD EQU 10 
Variables locales 
String EQU -16 
StopAlert 
LINK A6,#-16 
MOVE.L A2,-(SP) 
MOVE 8(A6),D0 


e1 


e2 


BEQ ei 
EXT.L DO 
LEA -16(A6) ,A0 
_NumToString 
BRA e2 
; Chaîne de longueur nulle 
MOVE.B +#0,-16(A6) 
CLR.L - (SP) 
MOVE.L #'STR ',-(5P) 
MOVE 10(A6),-(SP) 
_GétResource 
MOVE.L  (SP)+,A2 
MOVE.L A2,A0 
_ELock 

Insère le texte dans l'alerte 
MOVE.L (A2),-(SP) 
PEA -16 (A6) 
CLR.L - (SP) 
CLR.L — (SP) 
_ParamText 


Affiche la fenêtre d'alerte 
expliquant l'annomalie 


CLR — (SP) 
MOVE #128,-(SP) 
CLR.L — (SP) 
_StopAlert | 
MOVE {SP)+,D0 
MOVE.L A2,A0 
_HUnLock 

: Retour 
MOVE.L (SP)+,A2 
UNLK A6 
MOVE.L  (SP)+,A0 
ADDQ.L #4,SP 
JMP (A0) 
END 


Fichier ‘Mep.R” 


Note : 


le caractère ‘Ÿ indique la 


continuité de la ligne. 


* 


* Ressources pour le programme 
* Mise en Page 


* 


!Mep 


APPLMYAP 


Type 


Mise 


Type 


Type 


2 


MYAP = STR 
10 
en Page - G. Zwingelstein 


BNDL 
#128(32) 
MYAP 0 
ICN# 

0 128 
FREF 
0 128 


FREF 
#1128(32) 
APPL 0 

ICN# = GNRL 


1128 (32) 


00000000 00000000 07FFC000 04086000 
051C5000 043E4800 05084400 04084200 
05087F00 04080100 04880900 05880D00 
07EBFF00 05880D00 04880900 043E0100 
051C0500 04080100 FFFFFFF8 9000004F 
9FFFFFC9 90000049 90000049 9000004F 
9FFFFFC8 80000008 80000008 80000008 
80000008 FFFFFFF8 80000008 FFFFFFF8 


* 


00000000 00000000 07FFC000 07FFE000 
07FFF000 07FFF800 O7FFFCOO 07FFFE00 
07FFFFO00 07FFFFO0 O07FFFFOO0 07FFFFOO 
07FFFFO0O O7FFFFOO O7FFFFOO 07FFFFO00 
07FFFFOO O7FFFFOO FFFFFFF8 FFFFFFFF 
FPFFFFFF FFFEFFFF FEPFFFFF FEFFEFFFF 
FFFFFFF8 FFFFFFF8 FFFFFFF8 FFFFFFFS8 
FFFFFFF8 FFFFFFF8 FFFFFFFS8 FFFFFFF8 
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* fenêtre d'alerte si erreur système 
Type ALRT 
1128 
50 50 250 450 
128 
5555 


* DITL de la fenêtre d'alerte 
Type DITL 

1128 
2 


Button 
170 150 190 250 
OK 


StaticText 
60 20 150 380 
20"1"2"3 


* message d'erreur de la fenêtre 
d'alerte 
Type STR 
1 
Le document ImageWriter n'est pasf 
compatible avec cette 
application. 


2 

LA 

Désolé: la disquette est verrouillée.f 
Les nouvelles sélections ++ 

ne peuvent être enregistrées. 


+3 
Désolé: le document ImageWriter estf 
verrouillé. Les nouvelles ++ 
sélections ne peuvent être 
enregistrées. 
14 
Les nouvelles sélections n'ont pas puj 
être enregistrées. ++ 
Veuillez déprotéger la disquette def 
démarrage et recommencer. 


5 

’ 

Désolé. Une erreur imprévue estf 
survenue lors def 
l'enregistrement ++ 





des nouvelles sélections. Erreur No : 


10 

’ 

Une erreur système imprévue est] 
survenue. Erreur No : 


+ Dialog des instructions 
Type DLOG 
1128 
dialog box 
30 10 332 502 
Visible NoGoAway 


1 ;dBoxProcb (alert box or modal] 
dialog box) 

0 

129 


* DITL du dialog des instructions 
Type DITL 

1129 
12 


Button 
270 80 290 180 
OK 


Button 
270 280 290 380 
Annuler 


Userltem Disabled 
0000 


StaticText Disabled 

10 5 70 482 

Cette application permet de modifier] 
le format d'impression 
pré-établi ++ 

utilisé dans la plupart desf 
applications (voir l'article 
‘mise en page' ++ 

ou ‘format d'impression' du menu/ 
Fichier) par les nouveaux} 
documents, 


StaticText Disabled 
70 5 120 482 
Si vous cliquez sur la case "ox',J 


cette application affichera ++ 
le dialogue du format d'impression 
pré-établi (contenu dans le ++ 
document ImageWriter de la disquette 
de démarrage) : 


StaticText Disabled 

120 40 190 482 

il suffira alors de choisir votre 
format habituel ++ 

et cliquer sur la case 'OK' pour 
l'enregistrer comme nouvea 
format ++ 

d'impression pré-établi ou sur laf 
case 'Annuler' pour conserver) 
l'ancien. 


StaticText Disabled 

190 5 230 482 

Si vous préférez quitter 
immédiatement cette 
application, cliquez ++ 

sur ‘Annuler’. 


StaticText Disabled 
240 5 260 482 
© G. Zwingelstein et Pom's - 1986 








Fichier Mep.Job’ 


ASM Mep.Asm Exec Edit 
LINK Mep.Link Exec Edit 
RMAKER Mep.R Finder Edit 





Fichier ‘Mep.Link’ 


] 


Mep 
PrLink 


ww 








MAC4 stuces 


Plus de 24 points 
avec MacWrite 


Mais oui c'est possible. Il suffit pour cela de 

disposer d'un éditeur de fichiers — FEdit par 

exemple - et de quelques minutes pour les 
manipulations. 

Voici la méthode : 

+ tapez un mot — par exemple ‘MOT’ - et 
donnez-lui la taille 24 points ; 

+ enregistrez le petit fichier ainsi constitué ; 

+ avec votre éditeur de fichiers, visualisez le 
contenu du document : on voit apparaître le 
‘MOT ; 

+ le sixième octet après ‘MOT indique la 
taille du texte (ici $18 pour 24 en décimal) ; 

*_ remplacez la valeur par $32 (48 en décimal) ; 

+ lorsque l'on appelera à nouveau le fichier 


depuis MacWrite, ‘MOT’ sera désormais 
affiché en 48 points, il est donc possible de 
le sélectionner et de taper ce que l'on veut à 
la place. 
Cette méthode autorise aussi les tailles de 
caractères "hors normes" comme, par exemple, 
8 ou 42 points. 


MacPaint 
et FullPaint 


Si vous maintenez la touche Option enfoncée 
lors du tracé d'une surface remplie (rectangle, 
oval), le bord de la surface ne sera pas tracé. 





Si vous voulez totalement remplacer MacPaint 
par FullPaint, au point qu'un double clic sur 
une image MacPaint ouvre FuliPaint , il faut : 


changer PANT en MNPT dans la ressource 
BNDL FullPaint, utiliser Lire les Informations 

de ResEdit pour effectuer la même modification 
et mettre en fonction le bit de liaison. Après 
avoir quitté ResEdit, effectuez un changement 
de dossier pour faire reconnaître au Bureau la 
modification du type. Et voilà. 


NDLR. : en procédant de celte façon, un 
double clic sur un document FullPaint créé avec 
une version non modifiée n'ouvrira pas ledit 
document. Une autre solution, plus simple et 
moins définitive, consiste à charger le document 
MacPaint depuis FullPaint, et demander 
Enregistrer sous. le même nom. 





La mémoire du +... 


peut être visualisée si vous appuyez sur la 

touche “INTERRUPT” placée sur le côté 

gauche du Macintosh Plus : 

+ le ‘prompt’ > apparaît ; 

+ tapez DM 1000 ;: 

+ le contenu de la mémoire, de l'adresse $1000 
à $105F s'affiche. 


Il est aussi possible de modifier le contenu de la 
mémoire (attention, danger.) en tapant ‘SM’, 
l'adresse (en hexa) et la ou les valeurs à placer à 
partir de cetle adresse. 


Pour reprendre le cours normal de vos activités, 
tapez ‘CG’. 
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Tempo 


Depuis très longtemps, nous rêvions d'un 
accessoire de bureau qui permettrait d'enregistrer 
tout un traitement clavier/souris et de le 
rappeler avec une simple combinaison de 
touches. Il y a bien eu MacTracks, mais cet 
accessoire ne cessait de faire la bombe. Aussi 
étions-nous ravis de voir débarquer Tempo, 
l'accessoire de bureau pour la création et 
l'utilisation de macro-instructions. 

Tempo permet d'enregistrer, en temps réel ou en 
mode programmation, toute une séquence 
d'utilisation du clavier et de la souris. Cette 
séquence peut être ensuite modifiée à loisir, 
puis exécutée sur l'appel d'une touche associée à 
la touche Commande. 


Quelques critiques 

En fait, une fois activé, Tempo se loge à droite 
de la barre des menus, avec le symbole 
"Commande". D'où une première incompati- 
bilité avec les logiciels qui, tel Excel, 
remplissent cette ligne. En fait, l'imcompati- 
bilité vient ici d'Excel, puisque tout le monde 
sait maintenant que les applications doivent 
laisser une place dans la barre des menus, pour 
un éventuel accessoire justement. Certains 
logiciels fort connus, tels ReadySetGo, 
Switcher ou ThinkTank, sont allergiques à 
Tempo félicitons ici l'initiative de 
l'importateur qui fournit une première liste de 
ces allergies. Avec PageMaker, Tempo exige 
l'original, ne permettant même pas qu'on 
l'introduise seulement lors de la vérification de 
copyright. Enfin, Tempo est vite débordé quand 
on utilise les possibilités les plus intéressantes 
telles que la programmation de pauses ou de 
boucles : il affiche alors des messages 
totalement incohérents et se comporte 
bizarrement. 


Quelques avantages 

Tempo est en fait un outil idéal pour accomplir 

sans difficultés et sans risque d'erreur des actions 

répétitives simples. Dans ce cas d'ailleurs, 
même les fonctions avancées (pauses, boucles 
et tests) fonctionnent de façon satisfaisante. 

Tempo est vraiment utile, pour prendre trois 

exemples : 

+ comme glossaire pour MacWrite ; 

* pour effectuer des Rechercher/Remplacer ou 
des changements de police et de style 
fréquents ; 

+ pour faciliter avec Pagemaker une opération 
ennuyeuse telle que le choix de caractères. 


Une bizarrerie 


Cette dernière utilisation fait toucher du doigt 
une particularité de Tempo. Supposons que, 
dans une fenêtre de dialogue, on fasse défiler une 
liste (par exemple, de polices de caractères), 
pour trouver celle que l'on veut, et qu'on la 
sélectionne. Tempo n'enregistre alors pas la 
police choisie, mais le mouvement de la souris. 
Le résultat est que, lors de l'utilisation, la 
police sélectionnée par la macro dépendra de la 
position antérieure, c'est-à-dire de la sélection 
précédente. Pour être francs, il faut dire que 
nous ne voyons pas très bien comment le 
programmeur de la chose aurait pu faire 
autrement. 
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Une astuce résout ce problème : quand on doit 
faire défiler une liste dans une fenêtre, il faut 
d'abord revenir au premier élément de la liste et 
le sélectionner, puis pratiquer la sélection 
voulue. 


Conclusion 


C'est finalement un produit qui comporte des 
potentialités intéressantes mais qui, en dehors 
des exemples simples d'application présentés 
ci-dessus, risque de décevoir. Peut-être faut-il 
attendre une prochaine version ? 


Créé par Affinity Software (Boulder, Colorado) 
et vendu par Alpha Systèmes avec une 
documentation en français. G 


dMac IT 


Ce produit, malgré son nom et la compatiblité 
dBase III qu'il semble impliquer et qu'il 
revendique d'ailleurs dans sa publicité, ne 
provient pas d'Ashton Tate. Ce n'est pas non 
plus un clone logiciel, puisqu'il ne tourne pas 
sur le même matériel que le logiciel qu'il imite. 
Son objectif est clair : donner aux utilisateurs 
du Macintosh la possibilité à la fois de 
récupérer des fichiers dBase développés sur IBM 
PC/XT, et de retrouver la syntaxe et le 
vocabulaire de dBase auquel ils sont déjà 
familiarisés. 

Ce programme donnera à ceux qui ne 
connaissent pas encore le manque de 
convivialité caractérisé de l'IBM PC et de dBase 
(par rapport à ses concurrents sur Mac) une 
assez bonne compréhension — par comparaison 
— de la grande convivialité du Mac. 


La documentation est entièrement francisée, 
mais le travail a été fait un peu vite, ce qui 
donne parfois jusqu'à 10 fautes par page, entre 
le français, l'orthographe et la ponctuation. 
Pourquoi donc les éditeurs et importateurs 
français ont-ils tant tendance à sous-estimer 
l'importance d'une documentation bien finie ? 
La première conséquence que l'on peut en tirer 
d'un essai de dMac III est que ce produit, vu son 
ambition de ressembler à dBase, ne peut 
exploiter pleinement le graphisme/souris du 
Mac. Deuxièmement, il est de notre devoir de 
souligner que la compatibilité avec dBase III 
n'est en aucun cas totale : les caractères 
graphiques de l'IBM PC, ainsi que les caractères 
accentués, ne se récupèrent pas tels quels. Les 
fichiers mémo ne sont pas récupérables non 
plus. Ajoutons que PC Diffusion International 
a l'honnêteté d'avertir l'utilisateur de ces 
limitations, et promet de résoudre ces 
problèmes. Enfin, la définition de la structure 
d'un fichier est celle de dBase II, en non pas 
celle de dBase III. 


En conclusion d'une analyse rapide, disons que 
l'utilisateur de dBase ne sera pas dépaysé — 
contrairement au Macophile impénitent — et, 
qu'au prix de certaines modifications, il pourra 
récupérer ses fichiers dBase IBM ; notons au 
passage que rien n'est dit sur la récupération de 
fichiers Apple II, ce qui pourtant devrait aussi 
être possible sans difficulté supplémentaire. Il 
serait intéressant de voir comment sera le dBase 
Mac d'Ashton Tate, qui devrait être disponible 


en France en début 87. Contrairement à dMac 
IT, dBase Mac, compatible avec dBase III, doit 
sortir en fin d'année; c'est une base de donnée 
relationnelle complète, permettant d'ouvrir 36 
fichiers à la fois, un produit concurrent d'Omnis 
III, de 4èMe Dimension et du plus récent 
REFLEX de Borland, lui aussi bientôt 
disponible en français. 


PC Diffusion International, 9 bis, rue Casimir 
Pinel, 92200 Neuilly. Prix : 3.950 F HT. G 


FullPaint 


C'est bien simple : si vous aimez MacPaint, 
vous adorerez FullPaint. Voici enfin pro- 
gramme totalement compatible avec MacPaint 
(c'était la moindre des choses !), et qui permet 
de faire tout ce que fait MacPaint, plus : 


+ travailler sur des images en plein écran ; 

+ avoir plusieurs documents ouverts à la fois ; 

+ effectuer des rotations et transformations 
diverses ; 

+ _ déplacer ou cacher les outils et les motifs ; 

+ utiliser des règles et des pointeurs de 
position ; 

+ coller depuis l'Album des documents plus 
grands que la fenêtre ; 

+ imprimer avec l'ImageWriter dans les 
formats 50%, 100%, 200% et 400% ; 

*_ imprimer avec la Laser Writer jusqu'à 400%. 


Seul inconvénient majeur : il ne se charge pas 
automatiquement quand on clique dans un 
document MacPaint. Et encore, la solution à ce 
problème vous est proposée dans la rubrique 
Enfin, à l'aide du ‘driver’ ColorPrint disponible 
sur la disquette FullPaint, vous pouvez 
imprimer des documents FullPaint en couleur, 
avec de nombreuses imprimantes, dont, bien 
entendu les ImageWriter I (on peut y mettre des 
rubans de couleur) et II, Epson JX-80, Canon à 
jet d'encre ou Scribe, pour ne citer que les plus 
connues. 


Conclusion 


Un produit que nous recommandons vigou- 
reusement et sans réserve, ce qui est hélas un 
plaisir trop rare. 


Diffusé par Ann Harbor Softworks, 308112 S. 
State Street, Ann Harbor, MI 48104, USA. 


Version US. G 








Minitel & Macintosh ean-Luc Bazanegue 


Dans ce numéro, Pom's propose deux 
programmes effectuant à peu près les 
mêmes tâches. L'un fonctionne sur les 
Apple //, l'autre — celui qui correspond à 
cet article de présentation — sur les 
Macintosh ; les deux utilisant le Minitel. 
Afin de ne pas mettre deux fois la même 
chose dans la revue, il nous a semblé 
Dore de placer les généralités sur le 

initel ainsi que les problèmes qui lui 
sont liés dans un article commun que vous 
pourrez trouver, si cela vous intéresse, 
page 53. 


Un schéma vous indique le cablâge 
nécessaire à la réalisation, très simple 
(nous joignons un petit dessin qui donne 
la correspondance entre les transistors sur 
le schéma et leur apparence physique, ce 
qui rend le montage accessible à tous), de 
l'“interface” reliant le Minitel au 
Macintosh ou au Macintosh plus. Ce 
dernier utilise une fiche ‘Mini-DIN’ qui 
n'est pas encore en vente partout ; si vous 
avez des problèmes pour vous en procurer 
une, il vous sera toujours possible 
d'employer la solution Macintosh 128 ou 
512k0 avec, en plus, un adaptateur 
Mac/MacPlus (DB9 femelle/Mini-DIN 
mâle). L'autre solution consiste en l'achat 
d'une “interface” du commerce. 


Le programme emploie plusieurs menus ; 
le menu ‘Mode’ est le principal . Voici le 
premier de ces modes de fonctionnement : 











Stockage 
Consultation 
Copie d'écran 

Préparation/envoi 


Ce mode sera utilisé pour ‘engranger’ 
rapidement les informations qui arrivent 
sur l'écran du Minitel. Pour cela, il faut 
utiliser le clavier et la souris du Macintosh 
à la place du clavier du Minitel (on ne perd 
pas au change !). Les commandes Minitel 
(Sommaire, Guide ,etc.) sont obtenues 
par l'action sur des boutons affichés à 
l'écran ; certaines d'entre-elles sont acces- 
sibles par des “équivalents clavier” : 





Envoi ‘Retour chariot’ ou ‘Entrée’ 
Suite “Tabulation’ 
Correction  ‘BackSpace’ 
Annulation ‘Annulation’ 
(uniquement MacPlus) 


Le but du jeu est donc d'enregistrer les 
écrans ; il faut pour cela ouvrir un fichier 
sur une disquette (ou un disque dur) à 
l'aide du menu fichier et de son article : 
Fichier 
Nouveau. 
Guurir. 
Enregistrement 
Fermer 

Quitter 












Cet article affiche la célèbre fenêtre de 
choix du nom de fichier. Cette dernière se 
comportant d'une manière tout à fait 


classique, ajouter quelque chose sur le 
sujet ne serait que gâchis de papier. 
Lorsqu'un fichier est ouvert, il devient 
impossible de changer de mode et il en 
sera ainsi jusqu'à ce que le fichier soit 
fermé. Ah! mais. 





[ETAT s 


Nouveau, 
Guurir... 
Enregistrement 
Quitter 
L'article magistralement visualisé 
ci-dessus permet de mettre en ou hors 
fonction l'enregistrement, ceci afin 
d'éviter le stockage d'écrans indésirables 
comme, par exemple, les premiers écrans 
de l'annuaire électronique. Il s'agit en fait 
de l'équivalent de la touche “Pause” d'un 
magnétophone. 
Lorsque l'enregistrement est en cours, 
l'article ‘Enregistrement’ apparaît “coché” 
et, simultanément (parfois en même 
temps), un ‘voyant’ s'affiche à côté du 
chonomètre : 


[A TA LIT-TS 
Nouveau... 
Guurir.…. 

Enregistrement 
Fermer 















Les articles du menu ‘Mode’ redeviennent 
valides : il est possible de changer de 
mode, ou encore de débuter un nouvel 
enregistrement. 


Chronomètre 
Départ automatique 


Déconnexion automatique. 
Marche 
Mise à zéro 





Le programme propose l'utilisation - 
optionnelle - d'un chronomètre dont le but 
est double : donner une idée du temps 
passé sur un serveur et permettre une 
déconnexion automatique à l'expiration 
d'un temps donné. Puisqu'il y a 
déconnexion automatique, il fallait aussi 
une option “Départ automatique”. 

Quand cette option est choisie (article 
coché’), le départ automatique aura lieu 
dès que le Minitel émettra quelque chose. 
Notons que, s'il est possible de rendre à 
tous moments cette option valide ou 
invalide, elle ne fonctionne que lorsqu'un 
fichier est ouvert et l'enregistrement 
autorisé. Si le chronomètre était en fonc- 
tionnement ou simplement n'était pas à 
Zéro, le premier caractère reçu provoquera 
sa réinitialisation. 

Pratiquement, une séance d'enregis- 
trement avec départ automatique du 
chronomètre pourrait débuter ainsi (on 
considère que le Minitel est sous tension) : 


+ ouverture d'un nouveau fichier ; 

+ autorisation d'enregistrement ; 

+ demande de l'option “départ automa- 
tique” ; 

+ composition du 11 (annuaire électro- 
nique) ; 

+ connexion au réseau par sélection de 
l'article “connexion” du menu 
“Liaison”. 

La dernière DER provoque le déclen- 

chement du chronomètre. 






Chronomètre 
Déconnexion automatique … 
Marche 
Mise à zéro 








La “déconnexion automatique” pourra être 
utile à ceux qui ne veulent pas que leurs 
factures téléphoniques atteignent des 
sommets vertigineux. La sélection de 
l'article provoque l'affichage de la fenêtre 
de sélection suivante : 


Déconnexion automatique 
au bout de 


minutes 





La fenêtre propose, par défaut, trois 
minutes ; ceci correspond au temps 
pendant lequel l'annuaire électronique est 
gratuit dans les zones où il est accessible 
par le 11. Il est possible de choisir une 
durée allant de 1 à 59 minutes. Une fois le 
choix effectué, l'article apparaît coché 
avec, à sa suite, un rappel du nombre de 
minutes, 


Remarques : 

+ le processus de déconnexion du réseau 
est entamé deux secondes avant 
l'expiration du délai, ceci afin de tenir 
compte de l'inertie de l'ensemble 
Mac/programme/Minitel (prononcez 
chaîne télématique, comme dans les 
salons où l'on cause) ; 

+ la déconnexion a lieu lorsque le 
chronomètre ‘passe’ au temps donné : 
si le chronomètre n'est pas à zéro 
lorsque l'option déconnexion 
automatique est demandé, le temps est 
faussé (on se croirait dans la quatrième 
dimension !). De même, si on demande 
un temps de déconnexion inférieur à la 
valeur courante du chronomètre, la 
déconnexion sera immédiate ; 

+ l'option est outrepassable : si la 
déconnexion n'est plus désirable, 
sélectionner à nouveau l'article 
“déconnexion automatique” ou 
demander l'arrêt du chronomètre ; 

+ bien que les options “déconnexion 
automatique” et “départ automatique” 
soient indépendantes, elles seront, la 
plupart du temps, utilisées de conserve. 
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Gonnextron 


ANNEES 


Fichier : Tente à transmettre 
Nombre de caractères ESS RÈS 


Envoyer un message à un serveur par l'intermédiaire du 
Minitel revient généralement assez cher, ceci à cause du 
clavier - pas vraiment ergonomique - et des possibilités 
d'édition (inexistantes). On passe facilement dix minutes 
ou plus à entrer un texte comme celui-ci. L'option 
“Préparation/Envol" du programme proposé dans le 
numéro 27 de Pom's autorise une saisie préalable et 
aisée (Couper, Coller.) de tentes qui pourront être par la 
suite (ou immédiatement) transmis au serveur, et ceci 
rapidement (un peu plus d'une minute pour ce texte). Le 
programme permet bien sûr la sauvegarde, le 
chargement et la modification des textes créés à partir 
de cette option, mais aussi le chargement de textes mis 
en forme avec n'importe quel éditeur de texte 








Macintosh 128 ou 512 








Minitel 


DIN 180° 
5 broches 
Mâle 


Composants nécessaires : 2 transistors 2N2222, 2 résistances de 10 KQ, 1 de 18 KQ 





Chronomètre 
Départ automatique 


Déconnexion automatique /3’ 


Marche 
| Mise à zéro 


Permet la mise en marche du chronomètre 
et remplie le même rôle que le bouton 
‘M/A’ placé dans la fenêtre (ceci 
fonctionne quelle que soit la valeur 
courante du chronomètre). Une fois 
sélectionné, l'article “Marche” devient 
logiquement “Arrêt”, et un petit ‘voyant’ 
s'affiche entre les boutons ‘M/A’ et ‘2’. 


ÊlE 


Chronomètre 
Départ automatique 





Déconnexion automatique /3’ 
Arrêt 
DATÉE AT 





Force à zéro le chronomètre sans l'arrêter. 
Il fonctionne comme le bouton ‘@’ placé à 
côté dans la fenêtre. 





Liaison 

Connexion 
Déconnexion 
1200 bauds 
48060 bauds 







Le premier article du menu “Liaison” est 
utilisé pour connecté le Minitel au réseau, 
après avoir fait le 11, le 36 15, etc. 






(RETETU 


Déconnexion 
3260 bauds 
4900 bauds 
C'est le contraire, c'est-à-dire la 


déconnexion complète du réseau. 


Attention, le bouton “Connexion/ Fin” 
situé dans la fenêtre n'a pas la même 
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fonction que les articles du menu 
“Liaison” : il sera utilisé pour passer, par 
exemple, du niveau serveur au niveau 
Télétel. 

Pour conclure le ‘mode d'emploi’ du 
mode “Stockage”, il convient de signaler 
qu'un ‘bip’ juste après une commande 
signifie qu'elle n'a pu être prise en 
compte ; la demande doit être réitérée. 


Stockage 


Consultation 


Copie d'écran 
Préparation/envoi 


Le mode “consultation” est employé pour 
renvoyer sur le Minitel les informations 
accumulées à partir du mode “Stockage”. 
La fenêtre contient les boutons de 
commande, ainsi qu'une indication sur le 
nombre de pages dans le document 
actuellement ouvert et le numéro de la 
page courante. 






















AT LIL 
NOHHPE... 
Ouvrir. 

Enreyis{rerment 
Fermer 
Quitter 







Permet d'ouvrir un fichier, uniquement 
s'il a été créé à partir du mode “stockage” 


Une fois le fichier ouvert, les boutons de 
commandes sont rendus valides en 
fonction du nombre de pages du 


document. Leur signification : 
e |<< e première page du document 
e << e dix pages en arrière 
e <e une page en arrière 
e >» page suivante 
e >> e dix pages en avant 
e >>| e dernière page du document 


Il est aussi possible de passer à la page 
suivante avec les touches “retour-chariot” 
et “entrée”. 


Note : afin d'éviter la confusion des 
écrans, on ‘vide’ celui du Minitel avant 
chaque changement de page, sauf 
lorsqu'on passe à la page suivante. 


(RCTET 
Connekion 
Déconnesion 


1200 bauds 
4800 bauds 





La vitesse de transmission par défaut vers 
le Minitel est de 1200 bauds ; si votre 
‘mini-terminal’ le permet, il est possible 
de passer à 4800 bauds, ce qui donne un 
plus grand confort à la consultation. Bien 
que cela ne présente pas beaucoup 
d'intérêt, on peut changer de vitesse à tout 
moment. 


Attention : de manière générale lorsque 
vous utilisez ce programme, et surtout si 
vous utilisez le changement de vitesse de 
transmission, il faut que le Minitel soit 
relié au Macintosh, et sous tension. Ceci 
garanti l'utilisation de vitesses identiques 
par les deux appareils. 








Mode 


Stockage 
Consultation 


Copie d'écran 


Préparation/envoi 


INFORMATIQUE CHATERIEL ET 
FOURNITURES DIVERS ) 
LES ULIS ESSONNE 2 


1 3 Con (Sté) 
æw 






<1) 69 07 16 93 


Apple Computer France 
2 -av Océanie <1) 69 28 22 00 
3 -meme adresse C1) 69 28 12 11 
> 4 Apple Computer France 


S Axel (SA) C1) 69 28 27 27 


av Québec 


> plus d'informations 
tapez le N° choisi:... 
page suivante > 


puis > 


Le mode “Copie d'écran” est utilisé 

conjointement aux fonctions du même 

nom, disponibles sur la plupart des 

modèles de Minitel : 

Fnct-] puis F pour une copie d'écran avec 
Caractères accentués ; 

Fnct-I puis À pour une copie d'écran sans 
Caractère accentué. 


Pour que la réception de copie(s) 
fonctionne, il faut qu'un fichier — sur 
lequel seront dirigées les informations — 
soit ouvert, et que le bouton “Réception 
de copies actives...” soit ‘on’. Ce dernier 
est nécessaire pour ne pas accumuler tout 
ce qui est envoyé par le Minitel entre deux 
copies d'écran. 


Si plusieurs copies sont enregistrées sur le 
même fichier, elles sont séparées par deux 
‘sauts de ligne’ et une ligne de ‘-”. 


Pratiquement, pour faire une copie 
d'écran (on suppose qu'un fichier est 
ouvert), il faut : 


+ mettre le bouton “Réception de copies 
actives...” ‘on’; 

+ faire Fnct-I puis F, ou Fnct-I puis A 
sur le Minitel. 


Si l'ordre n'est pas respecté, on peut avoir 
une copie tronquée et, en même temps, 
l'impression de ne plus “avoir la main” 
puisque le programme attend la fin de la 
page, qui ne viendra jamais. Dans ce cas, 
il convient d'envoyer à nouveau une copie 
qui, elle aussi, sera tronquée, mais 
déclenchera une protection du programme 
qui remettra tout en ordre. 


Les fichiers constitués depuis ce mode 
sont exploitables depuis tous les 
programmes qui acceptent le format 
‘TEXT’ (MacWrite, Word, Edit...). Afin 
de respecter la géométrie de l'écran, il 
convient, lors d'une impression, d'utiliser 
une police de Caractères à chasse fixe 
(Monaco ou Courier). 


EN EE ER ER EE | 













Stockage 
Consultation 
Copie d'écran 
Préparation/envoi 






Ce mode sera utile à ceux qui ont 
fréquemment besoin d'émettre des 
messages assez longs vers des serveurs 
et, de manière plus générale, aux futurs 
utilisateurs du ‘courrier électronique’ qui 
sera prochainement mis au service du 
public par les PTT. Il permet l'émission 
de messages préparés ‘hors réseau’ - donc 
sans contrainte de temps - et, 
éventuellement, leur édition. 





[AT ALT 
Nouveau. 
Ouvrir. 
Enregistrer. 
Fermer 

Quitter 







Pour commencer l'édition d'un nouveau 
message. 






CAT AIT 
LITTLE Le 
Enregistrer. 
Fermer 
Quitter 







Ouverture d'un fichier contenant un texte 
édité avec ce mode ou un programme 
autorisant une sauvegarde en format 
“TEXT”. Si le fichier en question contient 
plus de 960 caractères (un écran Vidéotex 
complet), le programme émet un ‘Bip’ et 
seuls des 960 premiers caractères sont 
chargés. 





LA TALUTT a 


Nouveau. 
Ouvrir. 
Enregistrer. 
Quitter 
Pour sauvegarder un texte. Si le texte ne 
porte pas de nom, le programme affiche la 
fenêtre de saisie habituelle. Comme pour 
le chargement si le texte à sauvegarder 
contient plus de 960 caractères, un ‘Bip’ 


est émis et seuls des 960 premiers 
caractères seront enregistrés. 


Le Bouton “Nombre de caractères” donne 
cette indication dans la ‘case’ placée au 
milieu de la fenêtre. Il peut être utile dans 
le cas de serveur acceptant seulement un 
nombre limité de caractères. 

Le Bouton “Envoi” émet les caractères 
contenus dans la fenêtre vers le serveur, 
ceci à raison de dix caractères par 
secondes. 





Remarques : 

+ les caractères sont filtrés et recodés si 
besoin est au moment de l'émission. 
Certains caractères ‘exotiques’ qui ne 
seraient pas reconnus pas le serveur 
sont simplement supprimés. Ainsi, le 
caractère ‘Y' n'est pas transmis. Le 





tableau de la page 54 indique les 
caractères valides ; 

+ la fenêtre de saisie du mode 
“Préparation/Envoi” n'accepte pas kes 
‘retours-chariot’. Cependant, == 
‘retour-chariot’ se trouvant dans == 
texte saisi avec un programme com 
MacWrite sera envoyé au Minitel 
comme la commande “Suite” ; 

+ bien que les ‘retours-chariot’ ne soiest 
pas acceptés directement par la fenête, 
les fonctions d'édition Couper, Copies 
et Coller étant valides, il est possible @ 
coller un de ces caractères récupéré 
avec un accessoire ; 

+ la commande “Suite” - qui remplace == 
‘retour-chariot’ - est suivie d'un déles 
d'environ une seconde et demi, ces 
afin de laisser au serveur le temps @ 
‘digérer’ la ligne de texte. 






Fichier 
Nouveau. 
Ouvrir. 
Enregistrer. 
Fermer 

LI LTTL EC: d 


Quel que soit le mode de fonctionnement 
en cours, cet article ferme l'éventuel 
fichier ouvert et provoque un retour am 
Finder. 


Quelques généralités 


Le programme est en deux parties, la 
première est baptisée ‘“Minitel/1’ mais ce 
nom peut être changé. En revanche, la 
seconde partie doit impérativement 
s'appelée ‘Minitel/2’ (sinon, il faut 
modifier le ‘CHAIN' situé à la dernière 
ligne de la première partie). Pour lancer 
l'exécution du programme : un double 
‘clic’ sur la première partie. Si vous avez 
la disquette d'accompagnement de ce 
numéro, elle contient une version 
RunTime du Basic Microsoft. 


Sur un 128Ko 


De grands efforts d'optimisation ont été 
faits afin que ce programme fonctionne 
aussi sur un Macintosh 128Ko. Cepen- 
dant, le système se trouvant un peu à 
l'étroit, il est préférable d'utiliser un 
ancien fichier ‘système’ (numéro de 
version inférieur ou égal à 2.0). Les 
versions postérieures constituent quelque- 
fois, avec le MSBasic 2, un mélange 
‘détonnant’ (seulement sur un 128Ko). 


En HFS 


À notre connaissance, il n'existe pas 
encore de version du Basic Microsoft 
compatible HFS. Il faudra donc, jusqu'à 
ce que la grande maison nous fournisse 
un Basic en état de marche, laisser la 
totalité des fichiers (interpréteur et 
programmes compris) au niveau 0. 
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Programme ‘Minitel’ 
Première partie (Minitel/1') 


«+ Fait un peu de place si on est sur un 

Mac128Ko. 

IF FRE(0)<50000! THEN CLEAR, 20000, 
2200 


+ Initialise les tableaux de variables et 

quelques variables utilisées plus loin. 

DEFINT A-Z:DR=ABS (FRE (0)>50000!):T 
20=2000+30000*DR:T22=63+447*DR:D 
V=0:V$="12":CD$="Déconnexion aut 
omatique":CC$="\Clic’ pour conti 
nuer...” 

DIM A!(T22),I(T22),V(2),A(98),B(23 
2),C(7),D(269),E(19),A$(9),F(3), 
G(3),H(3),J(26),K(26),L(26),M(22 
),N(3),0(3),P(3),0(3),B$(5),R(3) 
1S(3),T(89),U(23),W(18),X(65),C$ 
(4,1),Y(3),Z1(14),CR(2,3),22(4,4 
),PL(1) 


+ Code objet de la routine ‘Délaï'. 

DATA &h4E56,0,&h362E, 8, &h48C3,&h59 
4F,&hA975,&h281F,&hD883,&h594F, & 
hA975, &hB89F,&h62F8, &h4E5E, &h4E7 
5 


+ Code objet de la routine de chargement 

des curseurs (Pom's 18). 

DATA &H4E56,0,&H42A7,&H3F2E,8, &HA9 
B9, &H2057, &H2E90,&HA851, &H4E5E, & 
H4E75 


- Titres des boutons en mode 

“Consultation” 

DATA + |<< +, << eo, < ee > e,° 
>> +,+ >>| + 

° Positions et titres des boutons en mode 

“Stockage” 

DATA 16,16,Connexion, 56,16, Sommair 
e,96,16,Guide,56 ,112,Annulation 
:96,112,Correction,56,208,Retour 
96,208,Suite,16,304,E. Page,56, 
304,Répétition, 96,304,Envoi 


- Pour les polygones des boutons en mode 

“Stockage”. 

S2:DATA 54,0,0,24,88,0,9,0,86,2,88 
,22,88,24,86,24,2,22,0,10,0,7,1, 
1,7,0,9 


+ Définition des boutons ‘Marchel Arrêt’ et 

‘Mise à zéro’ en mode “Stockage”. 

DATA 16,25,8H7FFE, &H8001, &H9FF9,&H 
9FF9,8&H8811,6H8761,&H83C1, 6H8181 
:6H8181,6H8241,&H84A1, &H8BD1, &H9 
FF9,&H9FF9, &H8001,&H8181,8&H8261, 
&H8241,8H82C1,6H8341,6H8241,6H86 
41,8H8181,&H8001,&H7FFE, &H9141,& 
H9B41,6H9581,6H9181,6H8131,£&H814 
9,8&H8279, &H8249,&H8001, &H7FFE 


+ Définition du voyant enregistrement en 

mode “Stockage”. 

DATA 11,25,&H7FC0, &HFFEO, &HF1E0, &H 
EAEO, &HE4E0, &HEAEO, &HF160, &HFF60 
, &HFF60, &HC160, &HCF60, &HCF60, &HC 
360, &HCF60, &HCF60, &HC160,&HFF60, 
&HFF60,&HF160, &HEAEO, &HE4E0, &HEA 
E0, &HF1E0, &HFFEO, &H7FCO 


- Pour le polygone du chrono. 
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DATA 46,12,150,40,258,12,152,12,25 
6,14,258,38,258,40,256,40,152,38 
,150,14,150,12,152 


- Rectangles divers. 

DATA &HDDFF,14,14,14,42,165,168,80 
,&H77FF,208,195,170,10,8,9,5,&HD 
DFF,39,39,39,68,183,182,104,&H77 
FF,257,206,175,176,128,127,131 


+ Code objet de la routine “Conversion”. 

DATA &H4E56,0,&H302E, 8, &H41FA, &HB8 
,&H721F, &H43FA, &H32, &HB011, &H662 
0,&H2091,&H4A69,2,&H670C,&H4A29, 
3,&H670C,&H10BC, 3,&H6014,&H10BC, 
1,&H600E,&H10BC, 2, &H6008,&H5889, 
6H51C9, &HFFD8, &H51D0, &H4E5E, &H4E 
75,&H8819,&H4161,6H8919,&H4361,€ 
H8D19,&H4B63, &H8E19,&H4265 

DATA &H8F19,6H4165,&H9019,&H4365,& 
H9119,6H4865,&H9419,&H4369, &H951 
9,&H4869,&H9919,6H436F, &H9A19, &H 
486F,&H9D19,&H4175,&H9E19, 6H4375 
,6H9F19,6H4875,&HA119, &H3000,&HA 
319,&H2300,&HA419, &H2700,&HA719, 
&H7B00,&HB119,6H3100,&HCE19, &H6A 
00 

DATA &HCF19,8H7A00, &HD619, &H3800, & 
H70D,0,&H913,&H4100,&H513, &H4200 
,6H813,6H4300, &H213,&H4400,&H313 
,6H4500,&H113,&H4600,&H413, &H470 
0,8H613,&H4800,6H13,&H4900 


+ Code objet de la routine “Clic”. 

DATA &H4E56,0,&H246E,8,&H3A2E, 12,8 
HCAFC, 86H36, &H4EBA, &H144, &H4EBA, & 
H12E,€H70FF,&H51C8, &HFFFE, &H4EBA 
:&H124, &H4EBA, &H12C, &H4EFA, 8HC6, 
&H4E56,0,&H246E, 8, &H487A,6H198,& 
HA972,6H7609,&H7800,&H7A00, &H426 
7,6H47FA, &H18A, &H2F13,6H4872,6H5 
002,&HA8AD, &H4A5F, &H6600 

DATA 6HA2,6H645,6H36,6H5244,6&H51CB 
» &SHFFE4, €H43FA, 6H166,&H47FA, £&H16 
À, &H51EB,5,&H22BC, 15,&H99, &H237C 
:6H26, &HA7, 4,&H4EBA, &H132, &H661A 
» &H43FA, &H146, 6H337C, &HB2, 2, 8H33 
7C, &HCO, 6, SH4EBA, &H11C, &H6758, 8H 
50EB,5, &H4EBA, 6H124, &H50EB, 4, &H4 
267 

DATA 6HA973,&H4A5F, &H6700,&H26, 8H4 
87A,&H122, &HA972, &H4EBA, &HFA, &H6 
708, &H4A2B, 4, &H66E4, &H6O0DA, &H4A2 
B, 4, &H67DC, S&H4EBA, &HF8, &H51EB, 4, 
&H60D2, &H4A2B, 4, &H6602,8H6016,&H 
4A2B,5,&H670A, &H36BC, 11, &H4EBA, & 
HDC, &H600AÀ, &H36BC, 10,6&H60F4, €H36 
BC, &HFFFF, &SH4ESE 

DATA &6H4E75,8&H4EBA, 6&H62,8H614C, &H5 
0EB, 4,&H4267,8HA973, &H4AS5F, &H672 
E, 6H487A, &HC6, &HA972,&H4267, &H43 
FA, &HBE, &H2F11,6&H4872, &H5002,£&HA 
8AD, &H4ASF, 6H6708, &H4A2B, 4, &H66D 
À, &H60D2,&H4A2B, 4, &H67D2,&H6118, 
&H51EB, 4,&H60CA, &H4A2B, 4,6H6604, 
&H6116, SH60AE, £&H6106,&H3684 

DATA &H610E, &H6O0AA, &H2F0C, &HA8C9, & 
H487A, &H7A, &HA8BA, &H4E75,&H204C, 
&HA023, 8&H4E75,6H7036,&HA122, &H43 
FA, &H68,&H22B2,6H5002,8H2351,4,8 
H5369,0,6H5369,2,8H5869,4,8H5869 
,6, &H43F2,&H5000,8H2848,8H2050,8& 
H701A, &H30D9,&H51C8, &HFFFC, &H205 
4,8H5268,10,&H5268,14 


DATA €6H5268,8H22,8H5268,&H24,&H526 
8,8H28,6H5268,&H2C, &H5268, &H2E, & 
H5268,8H32,&H4E75,6H4267,&H47FA, 
&H1E,6H2F13,6H487A, 16, &HABAD, &H4 
ASF, &H4E75, 6H487A, 6, &HABA4, &H4E7 
5 


e Code objet de la routine “JO”. 

DATA &h4E56,0,8&h226E,8,&h5489,&h70 
00,&h1019,&hE188 

DATA &h1019,&8hE188,&h1011,&h41FA,& 
h006A, &h2248,&h7218,8h4259 

DATA &h51C9,&hFFFC,&h2140,18,&hA00 
0,&h43FA,8h54,&h32A8 

DATA 16,&h4E5E, &h4E75,&h4E56,0,&h4 
1FA,&h46, &h42A8 

DATA 12,6h226E,8,&h1019,g&hE148,gh1 
019,€h3140,&h26 

DATA &h7000,&h1019,&hE188,&h1019,e 
hE188,&h1011,&h2140,32 

DATA &h317C,1,&h2C,&h216E,12,&h2E, 
&hA002, &h60BA 

DATA &h4E56,0,&h41FA,12,8h42A8,12, 
&hA001, &h60AA 


e Code objet de la routine de fermeture des 

fenêtres (Pom's 19). 

DATA &H42A7,&HA924,&H2E1F, &H6706,& 
H2F07,&HA916, &H60F2,&H4E75 


+ Code objet de la routine “MAJ”. 

DATA &H4E56,0,&H76FF, &H266E, 8, &H38 
1B, &H643,11, &H3F3C, 2, &H3F03, &HA8 
93,&H5344, &H6B10,&H7000,&H101B, & 
HCO0,13,&H67E6, &H3F00, &HA883, &H6 
OEC, &H4E5E, &H4E75 


+ Code objet de la routine de chargement 

des icônes (Pom's 18). 

DATA €6H4E56,0,&H42A7, &H3F2E, &HC, 6H 
A9BB,8H2057,&H2250,&H246E, &H8, &H 
24FC,32,32,8H701F,&H24D9,8H51C8, 
&HFFFC, &H4ESE, &H4E75 


° Pour message si plus de 2000 caractères 
par pages (128Ko). 


DATA ,5,t,ent,,s," a*“,"“ ont",.,s. 

-Türes des menus. 

DATA Mode, Stockage, Consultation,Co, 
pie d'écran,Préparation/envoi,Fi 
chier, Nouveau.…,Ouvrir…,Enregistr 
ement,Fermer,Quitter,Chronomètre 
Départ automatique, Déconnexion 
automatique…,Marche,Mise à zéro 

DATA Liaison, Connexion, Déconnexion 
1200 bauds, 4800 bauds,Pom's, (1) 

39.51.24.43 


- Positions des caractères du chrono. 
DATA 212,220,232,240 


+ États des articles du menu “fichier” pour 

Les différents modes. 

DATA 0,0,1,1,1,1,0,0,0,1,0,1,0,0,1 
lits 0100/0172 


+ Jritialisation des tableaux de 

variables et mise en place des menus. 

FOR I=0 TO 14:READ Z1(I):NEXT:FOR 
1=0 TO 10:READ Z(I):NEXT:A!=-VARP 
TR(Z(0)}:A! 4 

FOR 1=0 TO 5:READ B$(I):NEXT:FOR I 
=0 TO 3:F(1)=&HAA55:H(I)=&HFFFF: 
NEXT:FOR 1=0 TO 18 STEP 2:READ E 
(1),E(1+1),A$ (I\2) :NEXT:N=0:FOR 
I=0 TO 18 STEP 2:RESTORE S2:READ 


D(N):N=N+1:FOR J=0 TO 12:READ D 
(N),D(N+1) 

D{N)=D(N)+E (I) :D(N+1)=D(N+1)+E(I+1 
}:N=N+2:NEXT:NEXT:FOR I=0 TO 16: 
READ A:J(1)=A:K(I)=A:NEXT:FOR I= 
17 TO 26:READ J(I):NEXT:FOR 1=17 

TO 26:READ K(I):NEXT:FOR I=0 TO 
26:READ L(I):NEXT:FOR I=0 TO 22 
:READ M(I):NEXT 

FOR I=0 TO 3:READ G(I),N(I),O(I),P 

(I1),Q(I),R(I),S(1),Y(I) :NEXT:FOR 
I=0 TO 96:READ A(I):NEXT:FOR I= 
0 TO 225:READ B(1I):NEXT:FOR 1=0 

TO 63:READ T(I):NEXT:FOR I=0 TO 

7:READ C(I):NEXT:FOR I=0 TO 23:R 

EAD U(I):NEXT:FOR I=0 TO 18:READ 
W(I) :NEXT 

FOR 1I=0 TO 4:READ CS$S(1,0),CS(I,1): 
NEXT:A1=0:A!=VARPTR(C(0)):A!:A1$ 
="3":A2$=CER$ (27) +CER$ (57) +CER$ ( 
103) :A6$=CHR$ (27) +CHR$ (57) +CHR$ ( 
104) :A2=0:H$=CHR$ (13) 

FOR I=0 TO 4:READ CS$:MENU 1,1, (I<> 
1)+2,C$:NEXT:FOR I=0 TO 5:READ C 
$:MENU 3,1,(1>1 AND I<5)+1,C$:NE 
XT:FOR I=0 TO 4:READ CS:MENU 4,1 
1, C$:NEXT:FOR I=0 TO 4:READ CS: 
MENU 5,1, (1>2)+1,C$:NEXT:FOR 1=0 

TO 1:READ CS$:MENU 6,1,1,C$:NEXT 
FOR I=0 TO 3:READ CR(2,1):NEXT:FOR 
1=0 TO 4:FOR J=0 TO 4:READ Z21(I 
»J) :NEXT:NEXT:CHAIN “Minitel/2", 





Programme ‘Minitel’ 
Seconde partie (doit être 
baptisée ‘Minitel2') 


+ Adresses en cas d'interruptions par les 

événements. 

DEFINT A-Z:GOSUB Tl14i:GOSUB Tl4o:G 
OSUB S4:ON BREAK GOSUB S1:BREAK 
ON:ON ERROR GOTO S0:ON DIALOG GO 
SUB S5:ON MENU GOSUB S17:ON MOUS 
E GOSUB S20:ON TIMER(1) GOSUB 52 
2:GOSUB S19:INITCURSOR 


-+ Boucle principale. 

10 ON A3 GOTO 11,10,13,10 

GOTO 10 

11 IF A4 THEN IF A5>=A6 THEN GOSUB 
S18:GOSUB S55:GOSUB MA:GOSUB S5 
3:GOSUB S19 

C$=INKEYS:IF C$<>"" THEN 20 

12 IF A3-1 THEN A8=LOC(2):IF DE TH 
EN IF A8 THEN PRINT#3, INPUTS (A8, 
2);:A9=A9+A8:IF C6 THEN IF E7 TH 
EN GOSUB S18:E7-0:DT=0:GOSUB 567 
:GOSUB 568:GOSUB MA:GOSUB 519 

IF B1 THEN B1-0:GOSUB 548 

IF DE=0 THEN IF A8 THEN CB$=INPUTS 
(A8,2) 

GOTO 10 

13 IF B2 THEN IF B3 THEN A8-=LOC(2) 
:IF A8 THEN GOSUB 580 


GOTO 10 

14 GOSUB S63:GOTO 10 

15 GOSUB 130:GOTO 10 

20 N=ASC(C$):1IF N=13 OR N=3 THEN N 
=9:GOTO 30 

IF N=8 THEN N=4:GOTO 30 

IF N=9 THEN N=6:GOTO 30 

IF N=27 THEN N=3:GOTO 30 

IF N>31 AND N<128 THEN PRINT#1,CHR 
$(N); ELSE GOSUB S94 

GOTO 10 

30 A!=VARPTR(B(0)):A! N,VARPTR(D(0O 
)):GOSUB S94:GOTO 10 


° On arrive ici en cas d'action sur un menu. 

S17:GOSUB S18:MO=MENU (0) :M1=MENU(1 
):1IF MO<6 THEN ON A3 GOSUB T7,T8 
»S530,T9 

MENU:GOSUB S19:RETURN 


+ Menu et mode “Stockage”. 
T7:ON MO GOSUB 545,51,S50,S54,S59: 
RETURN 


+ Menu et mode “Consultation”. 
T8:ON MO GOSUB S45,S1,T10,S554,S59: 
RETURN 


+ Menu et mode “Préparation Envoi”. 

T9I:ON MO GOSUB S45,S1,S35,S54,S59: 
RETURN 

- Article “Stockage” du menu “Mode”. 

S45:IF M1=A3 THEN RETURN 

ON A3 GOSUB U1,U2,U1,U4:MENU 4,0, ( 
M1>1)+1:IF M1=2 THEN FOR I=1 TO 
4:MENU 5,1, (1<3)+1:NEXT:MENU 5,3 
2 ELSE FOR I=1 TO 4:MENU 5,1, (I 
>2)+1:NEXT 

IF M1=4 THEN CB$="Enregistrer." EL 
SE CB$="Enregistrement" 

MENU 3,3,1,CB$:A!=FRE(" “) :ERASE À 
!,1,V:ON M1 GOSUB S41,S42,S43,S4 
4 : RETURN 

U2:IF DV THEN DV=0:V$="12":PRINT#1 
,CER$ (27) ":kd"; 

U4 :CLOSE 1 :RETURN 

U1:CLOSE 1:CLOSE 2:RETURN 


+ Recodage des caractères si nécessaire. 

S94:IF N<10 THEN IF LOC(2) THEN BE 
EP : RETURN 

IF N=10 OR N=11 THEN GOSUB 569:RET 
URN 

S88:A1!=VARPTR(A(0)):Al! N:Al!=Al! 
+194:A1=PEEK(Al!):Al!=Al!+1:1F À 
1=0 THEN RETURN 

FOR I=0 TO Al-1:PRINT#1,CER$ (PEEK ( 
Al!+1));:NEXT:IF B4 THEN RETURN 

IF N<10 THEN GOSUB 596 

RETURN 


+ Affichage du contenu de la fenêtre en 

mode “Stockage”. Attention : il y a deux 

‘espaces collants’ dans le PRINT" ”". 

S65:1F DT THEN TIMER STOP 

GOSUB S61:N=0:FOR 1=0 TO 9:IF I=0 
OR I=7 THEN FILLPOLY VARPTR(D(N) 
), VARPTR(F(0)):GOTO 597 

IF 1-9 THEN FILLPOLY VARPTR(D(N)), 
VARPTR(G(0)) ELSE FILLPOLY VARPT 
R(D(N)),VARPTR(H(0)) 

S97:FRAMEPOLY VARPTR(D(N)):IF 1=0 
OR I=7 OR I=9 THEN TEXTMODE 1:TE 
XTFACE 8 ELSE TEXTMODE 3:TEXTFAC 
E 0 


MOVETO D(N+2)+9,D(N+1)+11:PRINT A$ 
(I):IF I=-0 THEN TEXTFACE 8:MOVET 
O D(2)+9,D(1)+23:PRINT"Fin" 

N=N+27:NEXT:FRAMEPOLY VARPTR(M(0)) 

FRAMEROUNDRECT VARPTR(N(0)),4,4 

TEXTMODE 1:TEXTFACE 0:MOVETO 22 
7,31:PRINT"’ ”":PUT(152,14),K,P 
SET:PUT(177,14),J,PSET:IF A3=1 À 
ND DE THEN PUT(195,14),L,PSET 

IF DT THEN PAINTROUNDRECT VARPTR(P 
(0)),4,4:TIMER ON 

RETURN 


° On arrive ici en cas d'action sur la souris, 

et dans la fenêtre. 

S20:GOSUB S18:ON A3 GOSUB S21,S1,S 
1,S1:GOSUB 519:RETURN 

S21:INITCURSOR:A!=VARPTR(B(21)):A! 
VARPTR(D(0)):GOSUB S3:IF B(230) 
>-1 THEN N=B(230):"0SUB 594 

RETURN 

+ En mode “stockage”, mise à jour de la 

table d'index après chaque action sur une 

commande Minitel. 

S96:IF A9<100 THEN S98 

TO:IF A9<T20 THEN 599 

B5=B5+1:A! (B6+1)=A! (B6) +T20:I (B6)= 
T20:B6=B6+1:IF B6=122+1 THEN B1= 
-1:ERROR 240:RETURN 

A9=A9-T20:GOTO TO 

S99:A! (B6+1)=A! (B6)+A9:1(B6)=A9:B6 
=B6+1:1F B6=T22+1 THEN Bl=-1:ERR 
OR 240 : RETURN 

A9=0 : RETURN 

S98:A! (B6)=A! (B6)+A9:IF B6 THEN I( 
B6-1)=I(B6-1)+A9:A9=0 

RETURN 

- Ouverture d'un nouveau fichier en mode 

“stockage”. 

T1:DA=0:F$=FILES$ (0):GOSUB S3 

100 IF F$="" THEN DA=-1:RETURN 

101 OPEN"o",3,F$:NAME F$ AS F$,"mt 
1F":B6=0:A9=0:A! (0)=0:RETURN 

° Ouverture d'un fichier en mode 

“Consulation”. 

S62:DA=0:F$=FILESS (1, “mtlF") :GOSUB 
S3:1IF F$=""* THEN DA=-1:RETURN 

OPEN"1",3,F$:RETURN 


+ On arrive ici en cas d'événements de 

type ‘Dialog'. : 

S5:GOSUB S18:ON A3 GOSUB T2,T3,T4, 
T5:GOSUB S19:RETURN 

+ ‘Dialog' en mode “Stockage”. 

T2:B8=DIALOG(0):IF B8=5 THEN GOSUB 
S92 

RETURN 

e ‘Dialog' en mode “Consultation”. 

T3:B8=DIALOG(0):IF B8=5 THEN GOSUB 
S93:RETURN 

IF B8=-1 THEN GOSUB S77:RETURN 

IF B8-6 THEN IF B7<B9 THEN BUTTON 
4,2:C1=4:GOSUB 570 

RETURN 

- ‘Dialog' en mode “Copie d'écran”. 

T4:C2=DIALOG(0):IF C2=5 THEN GOSUB 
S83 

IF C2<>1 THEN RETURN 

IF DIALOG(1)=1 THEN IF B3 THEN BUT 
TON 1,1:B3=0 ELSE BUTTON 1,2:B3-= 
-1:A1=0:CBS$=INPUTS (LOC (2),2) 
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RETURN 

e ‘Dialog' en mode “Préparation/Envoi”. 

T5:B8=DIALOG(0):IF B8=5 THEN GOSUB 
S84:RETURN 

IF B8-1 THEN GOSUB 586 

RETURN 

- Mise à jour, mode “Stockage”. 

S92:GOSUB S65:C3=-1:IF A5 AND DT T 
HEN GOSUB S22 ELSE GOSUE 568 

C3=0:RETURN 

+ Menu “Fichier” en mode “Consultation”. 

T10:0N M1 GOSUB S46,T11,S27,S32,S2 
8:RETURN 


+ Mode “Consultation”, menu “Fichier” et 

article “Ouvrir”. 

T11:F$=FILESS (1,"mtlF"):GOSUB 53 

120 IF F$="" THEN RETURN 

OPEN"R",3,FS$+".T":FIELD 3,4 AS A35S 
,2 AS A4$:GET 3,1 

121 A!=CVS(A3$):IF A!<>123.4567 TH 
EN ERROR 254 

B9=CVI (A4$):1IF B9 THEN B7-1 ELSE B 
EEP :F$=-"":CLOSE 3:RETURN 

FOR I=2 TO B9+2:GET 3,1:1(I-2)=CVI 
(A4$) :A! (I-2) =CVS (A3$) :NEXT:CLOS 
E 3:GOSUB S24:K=-4:GOSUB T98 :GOSU 
B 578 

A5$=CHR$ (LEN(FS$))+F$:A!=VARPTR(T(0 
)):A! VARPTR(A5$):IF T(64) THEN 
ERROR 255 

PRINT#1,CHR$ (12)::GOSUB 533 :RETURN 

+ Mode “Consultation”, menu “Fichier” et 

article “Fermer”. 

S32:FOR I=1 TO 6:BUTTON I,0:NEXT:B 
7=0:B9=0:GOSUB S34:A!=VARPTR(T(5 
6)):A!:GOSUB S31:K=2:GOSUB T98:F 
$=""; RETURN 

° Menu et mode “Copie d'écran”. 

S30:ON MO GOSUB 545,51,S29,S54,S59 
:RETURN 

+ Menu “Fichier” en mode “Copie d'écran”. 

S29:0N M1 GOSUB 525,S1,527,130,S28 
:RETURN 

+ Mode “Copie d'écran”, menu “Fichier” et 

article “Ouvrir”. 

S25:GOSUB 579:IF DA THEN K=1:GOSUB 

T98:MENU 1,3,2 ELSE V(0)=0:BUTT 

ON 1,1:LINE(1,1)-(242,269),30,BF 
:GOSUB 524:E5=-24:K=4:GOSUB T98:C 
B$=INPUTS (LOC (2),2) 

RETURN 


+ Mode “Copie d'écran”, menu “Fichier” et 

article “Fermer”. 

130 CLOSE 3:B2=0:BUTTON 1,0:B3=0:G 
OSUB S31:K=1:GOSUB T98:F$="";:RET 
URN 

< Menu “Fichier” en mode 

“Préparation/Envoi”. 

S35:ON M1 GOSUB 536,537,538,S1,S28 
:RETURN 

+ Mode “Préparation/Envoi”, menu 

“Fichier” et article “Nouveau”. 

S36:F$=""*:C4=0:GOSUB SPE:MOVETO 6, 
16:PRINT"Fichier : Sans titre": 
B$=""*:GOSUB T30:RETURN 


+ Mode “Préparation/Envoi”, menu 
“Fichier” et article “Ouvrir”. 
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537:INITCURSOR:CB$=F$:FS$=FILESS (1, 
"TEXT") :GOSUB S3:IF F$="" THEN F 
$=CB$ : RETURN 

OPEN"1I",3,F$:L=LOF(3):IF L>960 THE 
N BEEP:L=960 

CB$=INPUTS (L, 3) :CLOSE 3:C4=0:GOSUB 

SPE:GOSUB T30:RETURN 


+ Mode “Préparation/Envoi”, menu 

“Fichier” et article “Enregistrer”. 

S38:CB$=-EDITS (1):L=LEN(CBS):IF L=0 
THEN BEEP : RETURN 

IF L>960 THEN L=-960:BEEP:C4=L:G$=" 
960":CB$=LEFTÉ (CB$, L) :GOSUB T30 

IF F$<>"" THEN 539 

INITCURSOR:F$=FILESS (0) 

160 IF F$="" THEN RETURN 

GOSUB 53 

161 OPEN"o",3,FS$:NAME F$ AS F$,"TE 
XT":GOTO 162 

S39:OPEN"0",3,F$ 

162 PRINT#3,CB$; 

163 CLOSE 3 

164 RETURN 


+ Menu “Fichier” en mode “Stockage”. 

S50:0N M1 GOSUB 546,547,527,S48,S2 
8:RETURN 

+ Menu “Chronomètre" en mode 

“Stockage”. 

S54:0ON M1 GOSUB S51,552,MA, S53:RET 
URN 

+ Menu “Liaison” en mode “Stockage”. 

S59:ON M1 GOSUB 556,555,S57,S58:RE 
TURN 


+ Menu “Mode”, article “Stockage”. 

S41:GOSUB T14i:GOSUB Tl4do:DIM A!(T 
22),I(T22),V(2):GOSUB S60:C5=-1: 
GOSUB S4:C5=0:K=1:GOSUB T98 :RETU 
RN 


+ Menu “Mode”, article “Consultation”. 

S42:GOSUB Tl4o:DIM A!(T22),I(T22), 
V(2):PRINT#1,A2$;:GOSUB S60:WIND 
ON 1,"",(20,50)-(156,240),4:GOSU 
B S61:FOR I=0 TO 5:BUTTON I+1,0, 
BS(1),(8,8+25*1)-(128,26+25*1):N 
EXT:B7=-0:B9=-0:K=-2:GOSUB T98 :GOSU 
B Tl11:RETURN 

+ Menu “Mode”, article “Copie d'écran”. 

543:GOSUB Tl4i:GOSUB Tl4o:DIM A! (2 
),I1(2),V(492) :GOSUB S60:WINDOW 1 
,"",(20,32)-(264,324),4:WIDTH 41 
:TEXTFONT 4:TEXTMODE 1:TEXTSIZE 
9:K=1:GOSUB T98:BUTTON 1,0, "Réce 
ption de copies active", (2,274) 
-(242,289),2:GOSUB S25:V(0)=0:RE 
TURN 


+ Menu “Mode”, article 

“Préparation/Envoi”. 

S44:GOSUB Tl4o:DIM A!(2),1I(2),V(2) 
:GOSUB S60:C4=0:WINDOW 1,"", (20, 
50)-(411,324),4:GOSUB S61:WIDTH 
80:K=3:GOSUB T98:BUTTON 1,1, "Nom 
bre de caractères", (2,23)-(163,4 
2) :BUTTON 2,1, "Envoi*, (228,23)-\({ 
389,42) :CB$="":GOSUB T30:RETURN 

+ Mode “Stockage”, menu “Fichier” et 

article “Nouveau”. 

S46:GOSUB T1:IF DA=-0 THEN B5-=-0:GO0S 
UB S24:K=0:GOSUB T98:E7=-1 


RETURN 





+ Mode “Stockage”, menu “Fichier” et 

article “Ouvrir”. 

S47:GOSUB S62:IF DA=0 THEN K-4:GO0S 
UB T98 

RETURN 

+ Mode “Stockage”, menu “Fichier” et 

article “Enregistrement” 

S27:IF DE THEN DE-0:ERASERECT VARP 
TR(O(0)) ELSE DE=-1:PUT(195,14), 
L,PSET 

MENU 3,3,ABS (DE) +1 : RETURN 

+ Mode “Stockage”, menu “Fichier” et 

article “Fermer”. 

548:IF B5 THEN ERROR 241 ELSE GOSU 
B S96 

110 CLOSE 3:F2$=F$+".T" 

111 OPEN"R",3,F2$:NAME F2$ AS F2$, 
"mtlT":FIELD 3,4 AS A3$,2 AS A4$ 
:LSET A4$=MKIS$ (B6) :LSET A3$-MKS$ 
(123.4567) 

112 PUT 3,1:FOR I=0 TO B6:LSET A3$ 
=MKS$ (A! (I)):LSET A4$-MKIS$(I(I)) 
:PUT 3,1+2:NEXT:CLOSE 3 

$63:GOSUB S31:ERASERECT VARPTR (O(0 
)):DE=0:F$="":K=1:GOSUB T98:RETU 
RN 

+ Menu “Fichier”, article “Quitter”. 

S28:PRINT#1,A2$;:CLOSE:A!=VARPTR(T 
(56)):A!:A!=VARPTR(C(0)):A!:SYST 
EM 

+ Mode “Stockage”, menu “Chronomètre” 

et article “Départ automatique” . 

S51:IF C6 THEN MENU 4,1,1:C6=0:E7= 
-1 ELSE MENU 4,1,2:C6=-1 

RETURN 

+ Mode “Stockage”, menu “Chronomètre” 

et article “Déconnexion automatique”. 

S52:IF A4 THEN MENU 4,2,1,CD$+".": 
A4=0:RETURN 

IF DT THEN TIMER OFF 

A4=-1:WINDOW 2,"", (32,62)-(222,134 
),-2:GOSUB S64:EDIT FIELD 1,A1$, 
(83,21)-(120,35),1,3:BUTTON 1,1, 
“OK", (14,46)-(172, 64) :ON DIALOG 
GOSUB S6:DIALOG ON:INITCURSOR 

S9:GOTO 59 

S8:GOSUB S3:GOSUB S65:MENU 4,2,2,C 
D$+" /"4+A1$+"/":ON DIALOG GOSUB 
S5:IF DT THEN TIMER ON 

RETURN 

+ Mode “Stockage”, menu “Chronomètre" 

et article “Mise à zéro”. 

S53:GOSUB S67:GOSUB S68:RETURN 

+ Menu “Liaison” et article “Connexion”. 

S56:PRINT#1,A6$ ; :RETURN 

+ Mode “Consultation”, menu “Liaison” et 

article “1200 bauds”. 

S57:IF DV THEN DV=0:V$="12":PRINT# 
1,CHR$ (27) "“:kd";:GOTO T99 


+ Mode “Consultation”, menu “Liaison” et 

article “4800 bauds”. 

S58:IF DV=0 THEN DV=-1:V$="48":PRI 
NT#1,CHR$ (27) “:kv"; 

T99:CLOSE 1:GOSUB Tl4o:MENU 5,3,DV 
+2:MENU 5, 4,ABS (DV) +1:RETURN 

- Affichage et mise à jour du chronomètre 

S22:A5=TIMER-B!-C7:IF A5=3600 THEN 
B'!=TIMER:C7=0:A5=0 





S68:C8=A5\60:D4=A5 MOD 60:CR(0,0)= 
C8\10:CR(0,1)=C8 MOD 10:CR(0,2)= 
D4\10:CR(0,3)=D4 MOD 10:TEXTFACE 

0 

FOR K=0 TO 3:1IF CR(0,K)<>CR(1,K) O 
R C3 THEN CR(1,K)=CR(0,K):LINE( 
CR(2,K),22)-(CR(2,K)+6,30),30,BF 
:MOVETO CR(2,K)-9,31:PRINT CR(1, 
K) ; 

NEXT : RETURN 

+ Mise à zéro du chronomètre. 

S67:IF DT THEN B'=TIMER 

C!=0:C7=0:A5=0:FOR K=0 TO 3:CR(1,K 
)=-1 :NEXT : RETURN 

+ Marche/Arrêt chronomètre. 

MA:IF DT THEN TIMER OFF:MENU 4,3,1 
,: “Marche":DT=0:C!=TIMER:ERASEREC 
T VARPTR(P (0) ) :RETURN 

MENU 4,3,1,"Arrêt":DT=-1:1F AS THE 
N C7-C7+(TIMER-C!) ELSE C7=0:B!= 
TIMER 

PAINTROUNDRECT VARPTR(P(0))},4,4:TI 
MER ON : RETURN 


- Action sur les boutons “Marche/ Arrêt” 

ou “Mise à zéro” du chronomètre. 

S69:IF N=10 THEN GOSUB MA:RETURN 

GOSUB 567:GOSUB S68 :RETURN 

-+ Fenêtre pour choix du temps si 

déconnexion automatique. 

S64:GOSUB S61:TEXTFACE 0:MOVETO 8, 
16:PRINT CDS:MOVETO 8,33:PRINT"a 
u bout de"“:MOVETO 126, 33:PRINT"m 
inutes":PENSIZE 3, 3:FRAMEROUNDRE 
CT VARPTR(Q(0)),16,16:PENNORMAL: 
RETURN 


e Si événements dans la fenêtre pour choix 

du temps. 

S6:C2=DIALOG(0):IF C2<>1 AND C2<>6 
THEN RETURN 

ED$=EDIT$ (1):1F LEN(ED$)>2 THEN S7 

D9=VAL (ED$) :IF D9<1 OR D9>59 THEN 
s7 

A1$=STR$ (D9) :A1$=RIGETS (A1$,LEN (Al 
$)-1) :A6=D9*60-1:WINDOW CLOSE 2: 
RETURN S8 

S7:BEEP :EDIT FIELD 1,A1$, (83,21)-( 
120,35),1,3:RETURN 


+ Déconnexion. 

S55:PRINT#1, A2$ ; :RETURN 

+ Met ‘off les articles du menu mode, sauf 

Le mode courant qui est coché. 

S24:FOR I=1 TO 4:MENU 1,1,2*ABS(I- 
A3) :NEXT:RETURN 


+ Met ‘on’ les articles du menu mode, sauf 

Le mode courant qui est coché. 

S31:FOR I=1 TO 4:MENU 1,1, (A3<>1)+ 
2:NEXT : RETURN 

+ Contenu de la fenêtre en mode 

“Consultation”. 

593:PENSIZE 2,2:FRAMEROUNDRECT VAR 
PTR(Y(0)),16,16:PENNORMAL:PENPAT 
VARPTR (F (0)):FRAMERECT VARPTR(R 
(0) ) :PENNORMAL 

S34:BRASERECT VARPTR(S (0)) :CB$=-STR 
$(B7)+" /“+STR$(B9)+" page":IF B 
9>1 THEN CB$=CB$+"s" 

MOVETO 8+(118-WIDTH(CBS))/2,178:PR 
INT CBS; :RETURN 


+ Mise à jour du compteur de pages après 
action sur un bouton en mode 
“consultation”. 

S77:C1=DIALOG (1) 

S70:E1=-1:O0ON C1 GOSUB S71,5S72,S73, 
S74,575,S76:GOSUB S78:GOSUB S34: 
GOSUB 533 :RETURN 

S71:B7=1:RETURN 

S72:B7=B7-10:RETURN 

S73:B7=B7-1 :RETURN 

S74:B7=B7+1:E1=0:RETURN 

S75:B7=B7+10:RETURN 

S76:B7=B9:RETURN 

+ État des boutons après consultation 

d'une page. 

S78:BUTTON 1, (B7=1)+1:BUTTON 2, (B7 
<11)+1:BUTTON 3, (B7=1) +1:BUTTON 
4, (B7=B9) +1:BUTTON 5, ((B7+10)>B9 
}+1:BUTTON 6, (B7=B9)+1:RETURN 


- Lecture et envoi d'une page. 

S33:MENU OFF:CB$="":A!=FRE(" "):CB 
$=SPACES$ (1(B7-1)):A!=VARPTR(T(27 
)):A! A!(B7-1),VARPTR(CB$) :MENU 
ON:IF T(64) THEN ERROR 254 

IF El THEN PRINT#1,CERS (12); 

PRINT#1,CBS$; :RETURN 


+ Autorise les événements. 
S19:DIALOG ON:MENU ON:MOUSE ON:INI 
TCURSOR : RETURN 


+ Interdit les événements. 

S18:DIALOG STOP:MENU STOP :MOUSE OF 
F:GOSUB S3:RETURN 

+ Fenêtre du mode “Stockage” 

S4:A3=1:WINDOW 1,"", (20,50)-(428,1 
86),4:GOSUB S61:WIDTH 80:IF C5=0 
THEN GOSUB 565 

GOSUB S67:GOSUB 568 :RETURN 


+ Ouverture d'un nouveau fichier en mode 

“Copie d'écran”. 

S79:DA=0:F$=FILESS (0) :GOSUB 53 

140 IF F$="" THEN DA=-1:BUTTON 1,0 
:RETURN 

141 OPEN"o",3,FS:NAME F$ AS F$,"TE 
XT":BUTTON 1,1:B2=-1:RETURN 


+ Traitement en mode “Copie d'écran”. 

S80:DIALOG STOP:IF ES5=24 THEN LINE 
(1,1)-(243,269),30,BF:E5=0:MOVET 
O 2,10:BUTTON 1,0 

ES=INPUTS (1,2):IF E5 THEN 150 

IF E$-CER$ (19) THEN CB$=INPUTS$ (11, 
2) :DIALOG ON:RETURN 

150 IF ES=H$ THEN ES-E5+1:1IF E5=-24 
THEN T90 ELSE T89 

IF ASC(ES)>31 THEN S82 

DIALOG ON :RETURN 

S82:IF E$="{" THEN E$=-"é" 

IF E$="}" THEN ES="è" 

IF E$-"@" THEN E$-"à" 

IF E$="\" THEN ES="ç" 

IF E$="'" THEN E$="\" 

IF E$="{" THEN E$=""" 

T89:PRINT E$;:GETPEN VARPTR(PL(0)) 
:IF PL(0)=263 AND PL(1)>237 THEN 
T88 

PRINT #3,E$;:Al=Al+1:V(0)=A1-1:A!= 
VARPTR(V(1)):POKE A!+Al-1,ASC(ES 
) 

IF Al<984 THEN DIALOG ON:RETURN 

T88:E5=24 


$;:CB$=INPUTS (LOC (2),2) :BUTTON 1 
1:B3=0:DIALOG ON:RETURN ELSE GO 
TO 582 

- Mise à jour de la fenêtre en mode “Copie 

d'écran. 

S83:PENPAT VARPTR(F (0) ) :MOVETO 2,2 
70:LINETO 241,270:PENNORMAL:IF V 
(0) THEN V(0)=V(0)+1:A!=VARPTR(U 
(0)):A! VARPTR(V(0))}:V(0)=V(0)-1 

RETURN 

- Mise à jour de la fenêtre en mode 

“Préparation Envoi". 

S84:LINE(2,2)-(388,20),,B:LINE (2,3 
)-(388,19),,B:MOVETO 6,16:PRINT" 
Fichier : ";:IF F$="" THEN PRINT 
“Sans titre"“:GOTO T12 

I=INSTR(FS,":") :IS=-RIGETS (F$,LEN(F 
$)-1) 

IF WIDTH(1I$)<320 THEN PRINT 1$;:GO 
TO T12 

T13:1$=LEFTS(IS$S,LEN(IS$)-1):IF WIDT 
H(1$+".…"*)>320 THEN T13 ELSE PRIN 
D Ter" 

T12:LINE(165,23)-(225,41),,B:LINE ( 
165,24)-(225,40),,B:GOSUB S85:LI 
NE(2,44)-(388,271),,B:RETURN 


- Action sur un bouton en mode 

“Préparation/ Envoi”. 

S86:CB$-EDITS (1) :C4=LEN (CBS) :G$=ST 
R$ (C4) :G$=RIGETS (G$,LEN(GS$)-1):E 
6=DIALOG(1):IF E6=1 THEN GOSUB S 
85 : RETURN 

IF E6<>2 THEN RETURN 

FOR J=1 TO C4:N=ASC(MIDS(CBS,J,1)) 
:1IF N>31 THEN IF N<128 THEN PRIN 
T#1,CHR$ (N) : :GOTO S87 

IF N-13 THEN N=-6 

B4=-1:GOSUB S88:B4=0:1IF N=6 THEN À 
!=VARPTR(Z1(0)):A! 144 

S87:A!=VARPTR(Z1(0)):A! 6:NEXT:RET 
URN 


* Affichage du nombre de caractère en 

mode “Préparation/ Envoi". 

S85:LINE(166,25)-(224,39),30,BF:IF 
C4 THEN MOVETO 166+(58-WIDTH(G$ 
))\2,37:PRINT G$ 

RETURN 


+ Initialisations pour chaque changement 

de mode. 

S60:F$="":CLS:IF DT THEN DT-0:TIME 
R OFF 

MENU 1,A3,1:A3=M1:MENU 1,A3,2:RETU 
RN 


- Sous-programme de traitement des 

€TTEUrS. 

S0:IF ERR-53 THEN RESUME NEXT 

IF ERR=-254 THEN IF T(64)=-49 THEN 
RESUME NEXT 

WINDOW 2,"",(32,62)-(400,110),-2:W 
IDTE 80:GOSUB S61:TEXTFACE O:1F 
ERR=240 OR ERR=241 THEN S89 

IC=-6047:GOSUB S16:PUT(8,8),X(0):1I 
C=0:GOSUB S16:PUT(48,8),X (0) :MOV 
ETO 216,40:PRINT CCS; :MOVETO 96, 
17:IF ERR-254 THEN PRINT"Fichier 
d'index introuvable.";:GOTO S11 

IF ERR=57 THEN PRINT"Erreur d'entr 
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ées/sorties.";:GOTO S11 
IF ERR=61 THEN PRINT"'Disquette sat 
urée.";:GOTO S11 
IF ERR=70 THEN PRINT"Disquette pro 
tégée.";:GOTO S11 
PRINT"Erreur système."; 
S11:ON A3 GOTO S12,S13,5S14,S15 
S12:PRINT" Enregistrement"; :MOVETO 
96,33:PRINT"impossible.";:GOSUB 
S10:IF ERL=-12 THEN CLOSE 3:KILL 
F$:RESUME 14 
IF ERL=101 THEN F$="":RESUME 100 
IF ERL=110 OR ERL=111 THEN KILL F$ 
:RESUME 563 
IF ERL-112 THEN KILL F$:CLOSE 3:KI 
LL F2$:RESUME S63 
RESUME NEXT 
S13:GOSUB S10:1F ERL-121 THEN CLOS 
E 3:KILL F$+".T":F$="":RESUME 12 
0 
RESUME NEXT 
S14:GOSUB S10:1IF ERL-130 THEN RESU 
ME NEXT 
IF ERL-141 THEN F$="":RESUME 140 
IF ERL=150 THEN RESUME 15 
RESUME NEXT 
S15:GOSUB S10:IF ERL=-161 THEN F$=" 
“:RESUME 160 
IF ERL=162 THEN CLOSE 3:RESUME 164 
IF ERL-163 THEN RESUME 164 
RESUME NEXT 
S89:1C=1:GOSUB S16:PUT(8,8),X(0):M 
OVETO 216,45:PRINT CCS$;:IF ERR=2 
41 THEN S90 
MOVETO 48,17:PRINT"Maximum 64 page 
s, le fichier va":MOVETO 48,33:P 
RINT"être clos.":GOSUB S10:RESUM 
E NEXT 
S90:MOVETO 44,10:CBS$S=STR$ (B5)+" pa 
ge"+C$(0,(B5=1)+1)+" contenai"+C 
$(1, (B5=1)+1)+" plus de 2000 car 
actères,":PRINT CB$:MOVETO 48,26 
:CB$="elle"+CS (2, (B5=1)+1)+C$(3, 
(B5=1)+1)+" dû être scindée"+Cs$( 
4, (B5=1)+1):PRINT CB$:GOSUB S10: 
RESUME 110 
S16:A!=VARPTR(W(0)):A! IC,VARPTR(X 
(0) ) : RETURN 
S10:WBILE MOUSE (0) :WEND:WHILE MOUS 
E(0)=0:WEND:WINDOW CLOSE 2:IF ER 
R=-241 THEN RETURN 
GOSUB S91:RETURN 
S91:ON A3 GOSUB 592,S593,S83,S84:RE 
TURN 
S1 : RETURN 


° Curseur en forme de montre. 

S3:A!=VARPTR(Z(0)):A! 4:RETURN 

° Chicago 12 points. 

S61:TEXTFONT 0:TEXTMODE 1:TEXTSIZE 

12 :RETURN 

° Ouverture de l'interface COMI en entrée. 

T14i:OPEN "COM1:"+V$+"00,E,7,1" FO 
R INPUT AS 2 LEN-1000:RETURN 

- Ouverture de l'interface COMI en sortie. 

Tido:OPEN "COM1:"+V$+"00,E,7,1" FO 
R OUTPUT AS 1:RETURN 


° Zone d'édition pour le mode 

“Préparation Envoi”. 

T30:EDIT FIELD 1,CB$, (4,46)-(387,2 
69) :RETURN 


SPE:LINE(3,4)-(387,18),30,BF:LINE( 
166,25)-(224,39),30,BF:RETURN 


T98:FOR J=0 TO 4:MENU 3,J+1,22(K,J  C° 
} :NEXT : RETURN e9 
0 u L @10 
Source ‘Clic. Asm ss 
Fin 
ERRRRRRARERARRRRNRRRRARÉRÉERRRRRLRRRLE 
; Routine utilisée en cas de ‘clic’ E2 
; dans la fenêtre en mode “stockage” @e2 
; La routine détecte une action sur 
;: des boutons et opère en conséquence. e3 
.Trap _GetMouse $A972 
.Trap  _PtinRect $ABAD 
.Trap _NewkHandle $A122 
.Trap _InvertPoly $A8C9 
.Trap _StillDown $A973 
.Trap _InvertOval SA8BA 
.Trap _DisposHandle $SAO23 
.Trap _InvertRect $ABA4 
LINK A6, #0 
MOVEA.L 8(A6),A2 
MOVE 12(A6),D5 
MULU #54,D5 
BSR s4 
BSR S2 @4 
MOVEQ #-1,D0 
@1 DBRA DO, @1 
BSR Ss2 
BSR s3 
BRA Fin @5 
El LINK A6, #0 
MOVEA.L 8(A6),A2 
PEA ES 
_GetMouse e6 
MOVEQ #9,D3 
MOVEQ #0,D4 
MOVEQ #0,D5 
e2 CLR — (A7) S2 
LEA E5,A3 
MOVE.L (A3),-(SP) 
PEA 2 (A2,D5) 
_PtInRect 
TST (A7) + s3 
BNE E2 
ADDI #54,D5 
ADDQ #1,D4 s4 
DBRA D3,@2 
LEA E4,Al 
LEA E5,A3 
SF 5 (A3) 
MOVE.L  #$F0099, (A1) 
MOVE.L  #$2600A7,4(A1) 
BSR S5 
BNE.S e3 
LEA E4,A1l 
MOVE #178,2(A1) 
MOVE #192,6(A1) 
BSR s5 
BEQ.S e10 e1 
ST 5 (A3) 
@3 BSR S6 
ST 4 (A3) 
@4 CLR (A7) 
StillDown 
TST (A7) + 
BEQ e6 
PEA ES 
GetMouse 
BSR s5 
BEQ.S es 
TST.B 4 (A3) s5 
BNE.S @4 
BRA.S e3 
e5 TST.B 4(A3) 
BEQ.S e4 
BSR s6 
SF 4 (A3) 
BRA.S @4 s6 
e6 TST.B 4(A3) 
BNE.S e7 
BRA.S @10 E4 
@7 TST.B 5 (A3) ES 





BEQ.S e9 

MOVE #11, (A3) 

BSR s6 

BRA.S Fin 

MOVE #10, (A3) 

BRA.S eg 

MOVE #SFFFF, (A3) 

UNLK A6 

RTS 

BSR S4 

BSR.S S2 

ST 4(A3) 

CLR —(A7) 
StillDown 

TST (A7)+ 

BEQ.S e5 

PEA ES 
GetMouse 

CLR —(A7) 

LEA E5,A1l 

MOVE.L {Al),-(SP) 

PEA 2(A2,D5.W) 

_PtInRect 

TST (A7) + 

BEQ.S @4 

TST.B 4(A3) 

BNE.S e3 

BRA.S e2 

TST.B 4(A3) 

BEQ.S e3 

BSR.S s2 

SF 4(A3) 

BRA.S e3 

TST.B 4(A3) 

BNE.S e6 

BSR.S s3 

BRA.S Non 

BSR.S S2 

MOVE D4, (A3) 


BSR.S S3 
BRA.S Fin 


MOVE.L A4,-(SP) 
_InvertPoly 

PEA E4 
_InvertOval 

RTS 

MOVEA.L A4,AO 
_DisposEHandle 

RTS 

MOVEQ #54,D0 
_NewEanäle 

LEA E4, A1 
MOVE.L 2(A2,D5.W), (A1) 
MOVE .L (Al) ,4(A1) 
SUBQ #1,0(A1) 
SUBQ #1,2(A1) 
ADDQ #4,4(A1) 
ADDQ #4,6(A1) 
LEA O(A2,D5.W),A1l 
MOVEA.L A0O,A4 
MOVEA.L (AO),AO0 
MOVEQ #26,D0 
MOVE (Al)+, (AO) + 
DBRA DO, @1 
MOVEA.L (A4),A0 
ADDQ #1,10(A0) 
ADDQ #1,14 (A0) 
ADDQ #1,34 (A0) 
ADDQ #1,36 (A0) 
ADDQ #1,40 (A0) 
ADDQ #1,44 (A0) 
ADDQ #1,46 (A0) 
ADDQ #1,50(A0) 
RTS 

CLR - (A7) 

LEA E5,A3 
MOVE.L (A3),-(SP) 
PEA E4 
_PtIinRect 

TST (A7) + 

RTS 

PEA E4 
_InvertRect 

RTS 

DC 0,0,0,0 
DC 0,0,0 
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Source T0O.Asm'’ 


RRRRRRÉRRÉRRÉRRÉRÉRERÉRERÉRRÉRÉÉARRÉÉAAREX 


î 

; Routine d'ouverture, lecture et 
; fermeture des fichiers (mode 
î 


consultation). 


.Trap _Open 
.Trap _Read 
.Trap _Close 


Ouverturel 
LINK 
MOVEA.L 
ADDQ.L 
MOVEQ 
MOVE.B 


Boucle CLR 
DBRA 
MOVE.L 
_open 

Sortie LEA 
MOVE 


Lecturel 


MOVE.B 
LSL 
MOVE.B 
MOVE 
MOVEQ 
MOVE.B 
LSL.L 
MOVE.B 
LSL.L 
MOVE.B 
MOVE.L 
MOVE 
MOVE.L 
_Ræad 
BRA.S 
Fermeturel 
LINK 
LEA 
CLR.L 
_Close 
BRA.S 
Drapeau 
TamponIO 
DCB.B 


Source ‘Délaï 


RRRR ARR RM RM MR RM ARR RAR RAR RÉ Re * 


Routine d'attente. Boucle pendant 


$A000 
$A002 
$A001 


A6,#0 
8(A6),A1 
#2,A1 
#0,D0 
(Al) +,D0 
#8,D0 
(A1) +,D0 
#8,D0 
(A1) ,D0 
TamponIO, A0 
AO,A1 
#24,D1 
(AL) + 

D1, Boucle 
D0,18 (A0) 


Drapeau,Al 
16(A0), (Al) 
A6 


A6,4#0 
TamponIO, AO 
12 (A0) 
8(A6),A1 
(A1) +,D0 
#8,D0 

(Al) +,D0 
DO, 38 (A0) 
#0,D0 

(A1) +,D0 
#8,D0 

(A1) +,D0 
#8,D0 

(A1) ,D0 
DO, 32 (A0) 
#1,44 (A0) 
12 (A6),46(A0) 


Sortie 
A6,4#0 
Tampon1O, A0 
12 (A0) 


Sortie 
DC 0 


50,0 


N est passé depuis le programme 


; N interruptions vidéo. 


Basic par la pile (entier). 


.Trap _TickCount S$A975 
LINK A6,4#0 
MOVE 8(A6),D3 
EXT.L D3 
SUBQ #4,5SP 
_TickCount 
MOVE.L (SP) +,D4 
ADD.L D3,D4 

e1 SUBQ $4,5SP 
_TickCount 
CMP.L (SP)+,D4 
BHI.S e1 
UNLK A6 
RTS 


Source 
‘Conversion.Asm’ 


RRRRRRRRRR RAR RÉ ARR RRRRRRRÉRRAÉRRÉRÉRRAÉÉ 


Routine de conversion des 
caractères non ASCII et des 
commandes Minitel. 

Le code du caractère ou de 
commande est passé par la pile. 
La suite de caractères 
résultante est placée dans la 
zone “tampon”. 

Le premier octet de la zone 
indique le nombre de caractères 
à transmettre. 


Se se se ve se ve se 


se 


LINK A6,#0 
MOVE 8(A6),D0 
LEA Tampon, AO 
MOVEQ #31,D1 
LEA Table, Al 


Boucle CMP.B (A1) ,D0 
BNE.S Non 
MOVE.L (A1), (A0) 
TST 2 (A1) 
BEQ.S Un 
TST.B 3(A1) 
BEQ.S Deux 
MOVE.B #3, (A0) 
BRA.S Fin 

Un MOVE.B #1, (A0) 
BRA.S Fin 

Deux MOVE.B #2, (A0) 
BRA.S Fin 


Non ADDQ.L $4,A1 
DBRA D1,Boucle 
Sr (A0) 
Fin UNLK A6 
RTS 
Table + 
DC.B $88,$19,$41,$61 
4 
; 
DC.B $89,$19,543,$S61 
eue 
; 
ç 
DC.B $8D,$19,$54B,$63 
€ 
DC.B $8E,$19,$42,$65 
> 
DC.B $8r,$19,$41,$565 
. ‘e 
; 
DC.B $90,$19,$43,$65 
'e 
DC.B $91,$519,$48,$65 
7 
pc.B $94,$19,$543,$69 
TT 
; 
DC.B $95,$19,548,$69 
:"e" 
DC.B $99,$19,$43,$S6F 
: "6" 
DC.B $9A,$19,$548,$S6F 
ET 
DC.B $9D,$19,$41,$75 
HU 
DC.B $9E,$19,$43,$75 
ET 
DC.B $9F,$19,$48,$575 
LS 
DC.B $Al,$19,$30,$00 
'£ 
DC.B $A3,$19,$23,500 
. L | 
; 
DC.B $A4,$519,527,S00 
8" 
; 
DC.B $A7,$519,$57B,S00 
+ 
DC.B $B1,519,531,500 
:'Œ 
DC.B $CE, $19,S6A, 500 
;'œ 
DC.B ScF,$19,$S7A, 500 
De 
DC.B $D6,$19,538, $00 
; E. Page 


DC.B $07,$0D,$00,5$00 


; Envoi 

DC.B $09,$13,$41,$00 
; Retour 

DC.B $05,$13,5$42,500 
; Répétition 

DC.B $08,$13,$43,$00 
;: Guide 

DC.B $02,$13,$44,$00 
; Annulation 

DC.B $03,$13,545,$00 
; Sommaire 

DC.B $01,$13,546,$00 
; Correction 

DC.B $04,$513,547,5$500 
; Suite 

DC.B $06,513,$48,$00 
; Connexion/Fin 

DC.B $00,$13,$49,5$00 

Tampon DC.L 0 


; 
; 
; 
; 
; 
G 
; 


Source ‘MAJ.Asm’ 


ARR AR A A AK A HE A A ON A À KT 


Routine de mise à jour de 
la fenêtre de “copie 
d'écran”. 

Les caractères à afficher 
sont dans un tableau de 
variables entières. 
L'adresse du premier 
élément est passé par la 


pile. 

.Trap _Moveto SA893 

.Trap _DrawChar SA883 
LINK A6,#0 
MOVEQ #-1,D3 
MOVEA.L 8(A6),A3 
MOVE (A3) +,D4 

CR ADD #11,D3 
MOVE #2,-(SP) 
MOVE D3,-(SP) 
_Moveto 

Boucle SUBQ #1,D4 
BMI.S Fin 
MOVEQ 40,D0 
MOVE.B  (A3)+,D0 
CMPI.B #13,D0 
BEQ.S CR 
MOVE DO,-(SP) 
_DrawChar 
BRA.S Boucle 

Fin UNLK A6 


RTS 





Vous avez un 
Macintosh, mais 
pas le Basic ? 


Sur la disquette 
d'accompagnement, 
vous trouverez un 
‘RUNTIME’ du 
Basic Microsoft 
pour utiliser 
normalement les 
programmes de la 
revue... 
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Les programmes relatifs au 
Minitel que vous lirez dans ces 
pages, nécessitent une 
présentation sommaire des 
aspects soft et hard de nos 
terminaux télématiques (hard = 
matériel : il ne sera pas question 
de Minitel rose dans les lignes 
qui suivent !). 

Il peut être utile de rappeler dans 
ce préambule que, dans les zones 
desservies par l'annuaire 
électronique, le Minitel est gratuit 
ce qui donne un modem d'un 
rapport qualité/prix. 
incalculable. 


Le ‘hard’? 


Les programmes de ce numéro 
supposent que votre ordinateur 
est équipée d'une carte interface 
RS232, courante sur nos micros 
mais incompatible directement 
avec la V28 du Minitel, c'est ce 
qui impose de fabriquer ou 
d'acheter le câble de liaison 
enrichi d'un petit montage 
inverseur. Ce petit montage est 
peu coûteux : 30,00 à 50,00 F 
selon les connecteurs utilisés, si 
vous le faites vous-même, 
environ 200,00 F chez l'une des 
nombreuses sociétés qui le 
proposent, Olitec* par exemple. 
En ce qui concerne le 
raccordement des appareils, il est 
important de veiller à ce que le 
Minitel soit isolé du secteur avant 
de brancher et débrancher. 

La prise péri-informatique à 
laquelle vous reliez votre Apple 
délivre et accepte des signaux à 
1200 bauds, valeur par défaut. 
La plupart des Minitels livré 
aujourd'hui disposent d'une 
touche FNCT qui permet, entre 
autres, d'effectuer des copies 
d'écran vers ladite prise : 
FNCT:] puis A ou bien FNCT-I 
puis F déclenche le processus, 
ANNULATION l'interrompt. 
Lors de ces copies d'écran, 
seuls les caractères ASCII sont 
transmis, les éventuels 
graphismes Vidéotex ne le sont 
pas. Pour changer la vitesse de 
transmission vers la prise : 


+ FNCT-P puis 3 donne 300 


bauds ; 

+ FNCT-P puis 4 donne 4800 
bauds ; 

+ FNCT-P puis 1 donne 1200 
bauds. 


Les programmes qui suivent 
gèrent eux-mêmes les 
changements de vitesse, vous 
n'aurez donc pas à intervenir. 

La prise se fait l'écho en 
permanence de ce que reçoit le 
Minitel, sauf lorsque vous 
l'inhibez en faisant FNCT-P puis 
I, seules les copies d'écran 
passent alors. 


Notons à l'attention de ceux qui 
se sentent une âme de 
‘télématiciens”’, que le protocole 
utilisé sur cette prise permet de 
s'adresser non seulement à une 
imprimante ou à un 
micro-ordinateur, mais également 
à un périphérique donné, parmi 
plusieurs autres branchés 
simultanément, 
presqu'AppleTalk... 


Dans ses échanges avec le réseau, 
votre terminal reçoit les 
informations à 1200 bauds et les 
transmet à 75 ; les appareils livrés 
aujourd'hui sont tous 
retournables (vitesses inversées). 


Le soft 


La gestion de l'écran du Minitel 


le Minitel 


n'est pas des plus simples : 
caractères ASCII (ABCD), 
polices ‘parallèles’ (BçàôœCŒE) et 
autres semi-graphiques, couleur 
de fond, couleur de caractère, 
masques. Ajoutons l'obligation 
d'écrire un espace de validation 
des changements d'attributs 
graphiques pour éclairer 
l'ensemble... Les programmes 
d'enregistrement Minitel de ce 
numéro stockent l'intégralité de 
ces informations (sans devoir les 
analyser) et lors de la 
consultation, vous retrouvez 
toutes vos couleurs. 


Notons également que les 
caractères que VOUS tapez au 
clavier de l'Apple sont transmis 
au Minitel, transmis à l'éventuel 
serveur en ligne, affichés à 
l'écran du Minitel puis transmis 
vers la prise où votre Apple 
pourra les recueillir pour les 
afficher. Lorsque votre Apple 
transmettra un texte à un serveur, 
le programme tiendra compte du 
débit et du temps nécessaire au 
serveur pour interpréter les codes 
spéciaux de type SUITE. 


Pour vos programmes, nous 
donnons en annexe la table de 
correspondance des caractères 
disponibles sur vos Apple avec 
ceux du mini-terminal ainsi que 
ses caractères semi-graphiques. 


BSPSREREBSHIRENR 


| 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 : 


ŒECTÉEBEESSCIRErE 


| 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 


ER LETERLLE EL 


| 64 65 66 67 68 69 70 71 72 ?3 74 75 76 ?7 78 79 


PDC LETELMITTI 


L 80 81 82 83 84 85 86 87 _88 89 90 91 92 95 94 95 


JEU de te rse arhiques VIdSO TER (ASCII dédie 





4 
1 
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En attendant nos prochains 
programmes de communications 
via Minitel, ne manquez pas de 
nous faire part de vos remarques 
et suggestions. 


* Sarl Olitec - 20, rue de 
Réménauville - 54000 NANCY 





Table de correspondance 


Mac 
Apple // 

Minitel 
‘? 32 32 32 
‘p 33 33 33 
is 34 34 34 
# 35 35 
‘$’ 36 36 36 
‘æ’ 37 37 37 
‘&’ 38 38 38 
39 39 39 





45 45 45 
4 46 46 46 
e 47 47 47 


2 58 58 58 
+ 59 59 59 
€ 60 60 60 


L 91 91 
Ne 92 92 
dk 93 93 
" 94 94 94 = 
95 95 95 


Tél : 16 83 35 00 65 ? 

Tarif: 225,00 F, pour Apple ][+, Pom $ 
Ile, /Ic et Macintosh. vous propose 
& 10 10 19 "’Dominos" 


‘e’ 101 101 101 
Æ 102 102 102 
‘g’ 103 103 103 


5 "4 104 104 104 

eee Apple ][+, /le, lc 
106 106 106 

LE 107 107 107 ‘ 

108 108 108 Thierry Haurie 





‘m’ 109 109 109 

‘n° 110 110 110 

‘o’ 111 111 L11 

‘p’ 112 112 112 a 4 L 

D 113 18 11 Il est ne de présenté 

‘Tr 114 114 114 1 . 

‘s’ 115 115 115 jeu de dominos; 

116 116 116 celui-ci bénéficie d'un 

‘uv’ 117 117 117 . , E 

118 118 118 graphisme très soigné 

‘w' 119 119 119 : 

7 6 0 (en couleur si vous 

D DE disposez d'une carte 

" "” 

13 + Chat Mauve") et les 

+ DS DS + messages transmis par le 

=? 126 126 * 

Mi 17 1 19 1* programme sont, au 

‘a’ 136 64 251:65 197 1 e 

» M choix, en Français, en 

“ 141 92 25 75 99 Italien, en Allemand ou 

É 142 123 25 66 101 : 

‘® 143 125 25 65 101 en Anglais. 

e 144 25 67 101 

‘€ 145 25 72 101 

Ÿ 148 25 “67710 

‘* 149 25 72 105 

‘ê’ 153 25 67 111 

‘o’ 154 25:72: 11 

‘à’ 157 124 25 65 117 

‘à’ 158 25,67. 117 TAF — 

‘ü" 159 25 TI | DO 

Su 161 91 25 48 

Æ 163 35 23, 35 

‘$ 164 93 25 39 

‘8 167 25 123 

+ 177 25 49 

“Œ’ 206 25 106 

‘æ' 207 25 122 

‘+7 214 25 56 

— 25 44 

Si à 25 45 

ES 25 46 

4 25 47 

‘1/4’ 25 60 

‘172’ 25 61 

13 25 62 

BRK 0 

E.Page 13 | 4 

Envoi 19 65 

Retour 19 66 

Répétition 19 67 

Guide 19 68 

Annulation 19 69 

Sommaire 19 70 

Correction 19 71 80.00 F TTC 

Suite 19 72 

Connexion/Fin 19 89 franco 

Mer mer Bon de commande 
mais il existe. Par exemple, le\ du 74 
Minitel correspont au «'> du RQ age 
pr pes 
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Christian Piard 


— Le présent programme a pour but 
d'enregistrer des séquences de 
consultations Minitel, de les resti- 
tuer, d'enregistrer et d'imprimer 
des écrans. Il a été conçu sur un 
Apple //e, et fonctionne également 
sur un ][+, un //c et même un IIGs 
avec, dans ce cas, un gain de 
temps sensible à l'affichage et à 
l'impression. Pour les ][+, //e et 
IIGs, la carte SSC est indispen- 
sable et doit être configurée 
comme ci-dessous. Elle sera 
installée dans l'un des slots, entre 
lets. 


swi sw2 
on on 
of JUDUO00] Lr#DU00000 
modem 
configuration 
de la carte 
terminal SSC Apple 





Dans un des mêmes slots, une 
imprimante pourra être connectée. 
Sur l'Apple //c, une routine fort 
pertinemment nommée PARAM 
configurera le port 2 pour le 
Minitel et le port 1 servira à 
l'imprimante. 

S'il vous manque l'interface 
Minitel ou celle pilotant 
l'imprimante, seules les fonctions 
liées au périphérique concerné 
seront indisponibles. Autrement 
dit il sera toujours possible 
d'enregistrer et de consulter des 
informations du Minitel sans 
imprimante ou d'imprimer des 
informations préalablement 
sauvegardées si votre interface 
série n'est pas connectée. 


La liaison 


Les interfaces RS 232 (SSC) et 
V28 (Minitel) délivrant des 
signaux série incompatibles, il 
vous faut prendre votre fer à 
souder pour réaliser le montage 
inverseur ci-contre. Les 
composants trouveront leur place 
dans l'une des prises ou dans un 
boîtier à part. 
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[Mimitel & Apple / 


Si vous doutez de vos talents 
d'électronicien, vous pourrez 
vous adresser à l'une des 
nombreuses sociétés qui 
proposent un tel câble : citons par 
exemple la Sarl OLITEC* 


Les deux modes 
principaux 


Le programme proposé ici peut 
recevoir du Minitel, restituer sur 
Minitel, sauvegarder et recharger 
ce que nous appellerons par la 
suite séquences. Il s'agit des 
pages Minitel complètes, 
chargées de tous leurs attributs 
graphiques ; l'ordinateur enre- 
gistre dans ce mode tous les 
signaux disponibles sur la prise 
péri-informatique. La consul- 
tation de ces séquences se fait sur 
l'écran du Minitel, les pages 
réapparaissant exactement comme 
lors de l'enregistrement mais plus 
rapidement. 


Dans le mode que nous 
appellerons copies d'écran, 
l'ordinateur n'enregistrera que les 
codes ASCII délivrés par le 
Minitel lorsqu'il effectue un copie 
d'écran. Les écrans enregistrés 
dans ce mode ne sont pas 
restitués sur le Minitel mais sur 
votre imprimante ou bien 
transférés dans un fichier de type 
‘TEXT” pour exploitation future 
par un traitement de textes. Vous 
opterez pour ce mode dans la 
consultation de l'annuaire 
électronique, pour, par exemple 
récupérer des adresses. Le 
premier mode servira surtout 
pour consulter sans contrainte de 
temps des informations qui ne 
nécessitent pas l'impression. 
Rappelons que, sur les Minitel 
qui le permettent, la copie d'écran 
s'obtient par FNCT-I puis F, ou 
FNCT-I puis A selon que vous 
désirez ou non les minuscules 
accentuées. 


Un mode auxiliaire 


De façon accessoire, le 
programme vous permet de 
transmettre au Minitel un fichier 
de type ‘TEXT’ que vous aurez 
préparé en traitement de textes. 
Ceci évite de perdre un temps 
coûteux lorsqu'il s'agit de taper 
un texte à destination d'une 
messagerie ou pour utiliser à 
moindres frais le futur service des 
PTT, Postéclair/Minitel. 


Le programme 
Basic. 


.….ne joue pas activement dans la 
relation Minitel/Apple mais gère 
les différents menus, intercepte 
les éventuelles erreurs DOS, 
s'occupe des chargements et 
sauvegardes ainsi que de la 
consultation des copies d'écrans. 
Lors de vos adaptations de ce 
programme, il faut garder en 
mémoire les deux points 
suivants : 

+ la place disponible une fois les 
variables initialisées est très 
réduite ; 

° il ne fonctionne tel quel 
qu'avec le DOS, mais comme 
pour le jeu SNAKE paru 
récemment, ne n'est pas un 
handicap puisque le 
programme est autonome. 


La partie 
assembleur... 


est appelée par le Basic par 
l'ordre 
CALL AD, SL, COMMANDE 


AD étant l'adresse de chargement 
de la routine, SL étant le port du 
Minitel et COMMANDE prenant 
une valeur de 1 à 5. 


Commande = 1 
La routine est en mode 





AAA 


enregistrement de séquences, les 
caractères reçus sont stockés de 
$2600 à $95FF, chaque adresse 
de ‘début de page’ Minitel est 
stocké entre $2500 et $25FF. 
Une nouvelle page est repérée par 
l'utilisation d'une fonction 
Minitel (Correction, Annulation, 
Guide...), uniquement si au 
moins 100 caractères ont été 
reçus depuis le dernier appel à 
une fonction. 


Ainsi, à la restitution, l'ordinateur 
ne marquera pas de pause si 
CORRECTION n'a fait que 
supprimer un caractère dans une 
zone de saisie mais il s'arrêtera si 
CORRECTION vous a servi à 
revenir au menu de l'annuaire 
électronique. 


A 1500 caractères de la 
saturation, la routine émets 
quelques ‘bips’ et, à $95FF on se 
dirige vers le Basic qui propose la 
sauvegarde. 

La routine lit en permanence le 
clavier et se charge de la 
conversion des ordres clavier en 
codes Minitel (Envoi, Suite, 
Correction...) ainsi que du 
recodage des caractères non 
ASCI CE OC À Dh 


Commande = 2 


C'est le mode restitution des 
séquences, les caractères sont lus 
en mémoire, et envoyés au 
Minitel via la carte interface série, 
une pause étant marquée entre 
chaque ‘page’. 


Commande = 3 


C'est le mode ‘enregistrement de 
copies d'écran’. La prise n'étant 
par forcément inhibée sur le 
Minitel, les éventuels douze 
caractères destinés aux 
périphériques du Minitel sont 
supprimés. On compte par la 
suite les retours-chariot pour 
repérer la limite entre les 
différentes copies d'écran. 
Chaque fin de copies d'écran est 
repérée par un code $FE dans le 
stockage, et la fin des copies par 
$FF. 


Commande = 4 

La routine ne fait qu'émettre un 
‘Bip’ plus agréable que l'habituel 
CTRL-G. 





Comment faire ? 


Réalisez le câble interface, 


œo -J Oo O1 FR OO ND — 


Vous avez un //c ? passez à l'étape 4 

Configurez la carte Série Apple SSC comme indiqué, 

Vous avez la disquette Pom's ? passez à l'étape 8 

Saisissez et sauvegardez le programme Basic (sur disquette DOS), 


Saisissez et sauvegardez le code MINITEL, 
Vous avez un Apple //c ? saisissez et sauvegardez le code PARAM, 
Faites ‘RUN MINBAS. 


Le mode d'emploi ci-contre et les menus vous guideront.. 


Commande = 5 


Ce mode est utilisé pour l'envoi 
d'un fichier ‘TEXT”’ au Minitel : 
La routine prend le caractère que 
le Basic a stocké en $6, 
éventuellement le recode (cas des 
‘é’ ‘è’ ‘ç’ ‘à’ ‘ù’...) et l'envoie au 
Minitel. 


En fin de routine sont installés les 
habituels octets de correction du 
bug de l'ON ERR. 


Sur le //c 


La carte série est réglé à 1200 
bauds, parité paire, 7 bits de 
données, 1 bit de stop à l'aide de 
CONFIG. Les trois octets 
nécessaires sont installés dans la 
mémoire principale dans un ‘trou’ 
de la mémoire-écran, puis 
transférés en mémoire auxiliaire 
par MOVEAUX. 


Mode d'emploi 


L'ensemble des choix dans les 
menus se fait par l'utilisation de 
l'une des quatre flèches, ESC 
signifie abandon et provoque le 
retour au menu précédent. On 
accepte l'option visée par la 
flèche à l'intérieur d'un menu 
avec RETURN. 


La première étape, indispensable, 
consiste à définir la configuration 
pour indiquer les numéros de 
ports de la SSC reliée Minitel et 
de l'imprimante. Par défaut, il est 
prévu 2 et 1. Vous changerez ce 
choix par défaut en modifiant la 
ligne Basic n° 20 (SL est le port 
Minitel et SI le port Imprimante). 





Minitel Vers Apple 


Enregistrement de 
séquences 


MENU GENERAL. 


*--> MINITEL VERS APPLE 
CONSULTATION 
CHARGER 
SAUVEGARDER 
OPTIONS 
ENVOI D'UN FICHIER 
FIN 


Il faut se servir du clavier de 
l'Apple // en lieu et place de celui 
du Minitel. Ceci permettra à 
l'ordinateur de repérer les débuts 
de ‘page’. Un rappel des touches 
de fonction est alors affiché : 


CTRL-X = Annulation 
DEL ou CTRL-C = Correction, 
TAB ou CTRL-I= Suite, 
RETURN = Envoi... 


MINITEL VERS APPLE 


*--> SEQUENCES 
COPIES D'ECRAN 
RETOUR 


ESC interrompt de façon 
provisoire l'enregistrement, une 
touche quelconque relance alors 
l'enregistrement, sauf ESC qui 
l'interrompt définitivement, le 
Basic vous proposant de 
sauvegarder. Si la sauvegarde 
n'est pas exécutée (vous avez 
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répondu par un simple RETURN 
au nom de fichier), l'option 
SAUVEGARDE du menu 
principal sera en vidéo inverse, à 
titre de rappel. 


Enregistrement de 

copies d'écran 

Avant chacune d'elles, vous 
devrez faire RETURN, l'Apple 
comptant alors les retours-chariot 
qui passent... Si la copie d'écran 
est interrompue par ANNU- 
LATION sur le Minitel ou bien si 
vous avez fait RETURN après le 
début de la copie, faites ESC 
pour indiquer la fin de page ; 
l'Apple en attend alors une 
nouvelle. ESC permet d'aban- 
donner ce mode et, bien entendu, 
la sauvegarde est proposée. 


Consultation 


Séquences 


La consultation se fera sur le 
Minitel. Si ce dernier est récent, 
vous pourrez optez dans le 
dernier menu pour 4800 bauds, 
l'affichage devient alors très 
agréable. Les flèches vous 
permettent d'avancer et de reculer 
dans la consultation, et ESC de 
conclure. 


Copies d'écran 

La consultation consistera en 
l'impression ou la création d'un 
fichier ‘TEXT’. Sur ImageWriter/ 
DMP, l'impression se fait en Élite 
élargi (code de contrôle à la fin de 
la ligne 795, à adapter à votre 
imprimante). Sur les autres 
imprimantes, aucun code de 
contrôle n'est envoyé. 

Vous pourrez également créer un 
fichier ‘TEXT” à partir de vos 
copies d'écran. Dans les deux 
cas, les copies sont séparées par 
une ligne de 40 ‘—. 


Transmettre à l'ordinateur des 
séquences alors qu'il attend des 
copies d'écrans provoquera des 
effets étonnants lors d'une 
éventuelle 

l'imprimante. 


consultation à 
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Chargement 


CHARGER 


#*--> LECTEUR 1 
LECTEUR 2 
RETOUR 


Le nom de fichier demandé peut 
toujours être remplacé par un ‘?’ 
pour obtenir le catalogue des 
disquettes. Un simple Retour- 
Chariot signifie que vous 
renoncez à l'opération mais, bien 
sûr, vous pourrez renoncez à 
renoncer... Le choix du lecteur 
vous est proposé après saisie du 
nom et, lors de l'opération, les 
différentes erreurs disques sont 
interceptées. Selon leur type 
(séquences ou copies d'écran), 
les noms de fichiers sont préfixés 
par ‘S.” ou ‘C.’. Ces préfixes ne 
servent qu'à vous repérer dans le 
catalogue de la disquette ; il est 
inutile de les taper car ils seraient 
simplement ignorés. 


Sauvegarde 


C'est le menu par lequel vous 
passez obligatoirement à l'issue 
d'un enregistrement. Mêmes 
conventions que pour le 
chargement. 


Options 


*--> PORT NINITEL 
PORT IMPRIMANTE 
RETOUR 


Ce menu vous permet de changer 
les numéros de port par défaut 
pour les Minitel et Imprimante. Si 
aucune imprimante n'est 
connectée, il convient de mettre 
NEANT et non de laisser une 


autre valeur car les résultats d'une 
tentative d'impression sont. 
prévisibles. 


Envoi d'un fichier 


OPTIONS 


PORT 1 
*--> PORT 2 
PORT 3 
PORT 4 
PORT 5 
NEANT 
RETOUR 


Ce fichier doit être de type 
TEXT, certainement créé par un 
traitement de textes. Les 
Retours-Chariot [CHR$(13)] 
sont transformés (ligne 4440) en 
les codes 19 72 qui équivalent à 
SUITE pour le Minitel, les 
serveurs attendant généralement 
ce code pour passer à la ligne. La 
boucle de délai qui suit permet 
audit serveur d'exploiter ce code 


SUITE. a: 


Source ‘T.Param' 


(uniquement //c) 
1 femmmmmmmmmmm—m——_———— 
2 * Paramètres pour 
3 * port 2 du //c, 
4 * $38, $6B, $81 dans 
5 * les octects $47C à 
6 * $47E en mémoire 
7 * auxiliaire. 
8 Ke mu eu me mem mm mm mms mm 
9 ORG $300 
10 OBJ $300 
11 
12 LDA #$38 
13 STA $47C 
14 LDA #$6B 
15 STA $47D 
16 LDA #$81 
17 STA $47E 
18 LDA #$7C 
19 STA $42 
20 STA $3C 
21 LDA #4 
22 STA $43 
23 STA S$3D 
24 LDA #$7E 
25 STA $3E 
26 LDA #4 
27 STA $S3F 
28 SEC 
29 JMP $C311 


Source ‘T.MINITEL' 


Assembleur Big Mac 


Note : ce source est sauvegardé, sur la 
disquette d'accompagnement Pom's 27, 
en format ‘TEXT' pour permettre la 


récupération par votre assembleur. 


JL "AT 

2 Am 
3 * Minitel/Apple 

4 * 

5 * Syntaxe : 

6 * CALL 8266, SLOT, COM 
7 fromnmmmsmnsem um 
8 

9 LST OFF 

10 ORG $204A 
11 
12 CARAC = $6 

13 STOCK _- $7 

14 PAGE = $18 

15 DRAP = $1A 

16 COMPT = $1C 

17 DRAP1 = $1E 

18 CH $24 

19 CV = $25 
20 PILE = $FE 
21 STATUS = $EB 
22 DATA = $ED 

23 SLOT = $FC 
24 KBD = $C000 
25 STROBE = $Cc010 
26 HP = $c030 
27 STROUT = $DB3A 
28 GETBYT = $E6F5 
29 BASCALC = $SFBC1 
30 CLREOL = $SFC9C 
31 KEYIN = $FDOC 
32 COUT = $SFDED 
33 

34 tm mm 


35 * Récupère n° slot et 
36 * n° commande 


JSR GETBYT 


#$co 
STA SLOT+1 


#$89 

STA STATUS 
STA DATA 

DEC DATA 

LDA #$C0 

STA STATUS+1 
STA DATA+1 
LDA #0 

STA SLOT 

JSR GETBYT 


100 
101 

102 
103 
104 
105 
106 
107 
108 
109 
110 
111 

112 
113 
114 
115 
116 
TLT 
118 
119 
120 

121 

122 

123 
124 

125 

126 
127 
128 


DEB1 


DEB2 


DEB3 


ENREG 


BCL 


SsC 


SS1 


SS2 


Ss3 


CLAV 


#1 
ENREG 
#2 

DEB1 
LECTURE 
#3 

DEB2 
COPIECR 
#4 


 DEB3 


BEEP 
#5 
ERR 
ENCAR 


#<ME 
STROUT 


MESEN 
INITAD 


KBD 
CLAV 

#0 

(STATUS, X) 
#08 
BCL 


(DATA, X) 
#0 

(STOCK) ,Y 
##10000000 
$7F7 
STOCK 

SS2 
STOCK+1 
STOCK+1 
#$96 

Ss2 

STOCK 
STOCK+1 


STROUT 
KEYIN 
FINER 


COMPT 
SS3 
COMPT+1 


129 
130 
131 

132 
133 
134 
135 
136 
137 
138 
139 
140 
141 

142 

143 

144 
145 

146 

147 
148 
149 
150 
151 

152 

153 

154 

155 

156 
157 
158 
159 
160 
161 

162 
163 
164 
165 
166 
167 
168 
169 
170 
171 

172 
173 
174 
175 
176 
E77 
178 
179 
180 
181 

182 
183 
184 
185 
186 
187 
188 
189 
190 
191 

192 
193 
194 
295 
196 
197 


FINER 


S1 


BCL1 


OK 


OK1 


MODE1 00 


MO1 
MO2 


PLDE1 00 


PL1 
PL2 





VTAB 
#>MO 

#<MO 
STROUT 
KEYIN 
#59B 
FINER 
MESEN 

BCL 

#0 

#$FF 
(STOCK) ,Y 


(PAGE) ,Y 
VTAB 


#0 
TABLE, X 
FIN 
CARAC 
OK 


BCL1 


#45 
SUITE 
#0 
COMPT+1 
PLDE100 
COMPT 
#100 
PLDE100 


(PAGE) , Y 
(PAGE) ,Y 
MO1 


MO2 


COMPT+1 
(PAGE) ,Y 
(PAGE) ,Y 

CONTP 
INITCO 

SUITE 


COMPT 
(PAGE) , Y 


PLI1 


PL2 


COMPT+1 
(PAGE) , Y 
PAGE 
PAGE 

#1 

(PAGE) , Y 
CONTP 
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198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
2039 
210 
213 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
297 
258 
259 
260 
261 
262 
263 
264 
265 
266 


STA (PAGE), Y 
JSR INITCO 
SUITE 
LDY #3 
BCL2 INX 
LDA TABLE, X 
BEQ FINCH 
STA CARAC 
JSR ENVOI 


BNE BCL2 
FINCH 
JUMP BCL 


JSR ENVOI 
JMP BCL 


JSR VTAB 
LDY #>ML 
LDA #<ML 
JUMP  STROUT 
LECTURE 
USR MESLEC 
JSR CLS 
LDY #0 
STY PAGE 
STY STOCK 
LDA #$25 
STA PAGE+1 
STA STOCK+1 
INC STOCK+1 
BNE LEC 
PC 
LDY #1 
LDA  (PAGE),Y 
CMP #$FF 
BEQ DERPAGE 
STA STOCK+1 


LDA  (PAGE),Y 
STA STOCK 
LEC INC PAGE 
INC PAGE 
LEC1 
LDY #0 
LDA  (STOCK),Y 
BMI DERPAGE 
STA CARAC 
ORA ##10000000 
STA $7F7 
JSR ENVOI 
INC STOCK 
BNE LECO 
INC STOCK+1 
LECO LDY #0 
LDA STOCK 
CMP (PAGE) ,Y 
BNE LEC1 


LDA STOCK+1 
CMP  (PAGE),Y 
BNE LEC1 


267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
227 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 

292 
293 
294 
295 
296 
297 
298 
299 
300 
301 

302 
303 
304 
305 
306 
307 
308 
309 
310 
311 

312 
313 
314 
315 
316 
347 
318 
319 
320 
321 

322 

323 
324 
325 
326 
327 

328 
329 
330 
331 

332 
333 
334 
335 


TOUCH 
LDA KBD 
BPL TOUCH 
BIT STROBE 
CMP #$9B 
BEQ FINFICH 
CMP  #$8A 
BEQ MOINS 
CMP #$88 
BEQ MOINS 
CMP #$95 
BEQ PC 
CMP #$58B 
BEQ PC 

M1 JSR BEEP 
JMP  TOUCH 

MOINS 


LDA PAGE 
SBC #2 
BEQ PRPAGE 


SBC #2 
STA PAGE 
JSR CLS 
UMP PC 
PRPAGE 
JSR BEEP 
JSR VTAB 
LDY #>MP 
LDA #<MP 
JSR STROUT 
UMP  DI1 


DERPAGE 
JSR BEEP 
JSR VTAB 
LDY #>MD 
LDA #<MD 
JSR STROUT 
D1 JSR KEYIN 
JSR MESLEC 
JUMP  TOUCH 
FINFICH 
USR VTAB 
LDY #>MF 
LDA #<MF 
JSR STROUT 
JSR KEYIN 
AND ##11011111 
CMP #"O" 
BEQ F 
SR MESLEC 
JUMP  TOUCH 
VTAB 


* Mode enregistrement 
* de copies d'écran 


COPIECR 
JSR INITAD 
JUMP PAUSE 
CoO1 UJSR GETDATA 
BCC Ssco 
co2 CMP  #$1B 
BNE CO1 
JMP PAUSE 


336 SSCO 
337 

338 

339 

340 

341 SSCO1 
342 

343 

344 

345 SSCO0 
346 

347 

348 

349 

350 SsCO02 
351 

352 

353 

354 

355 

356 SsC022 
357 

358 

359 

360 

361 

362 

363 

364 

365 

366 SSCO03 
367 

368 

369 

370 

371 

372 

373 

374 SSC2 
379 

376 

977 

378 

379 

380 

381 

382 SSC3 
383 

384 PAUSE 
385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 PAUSE2 
398 

399 

400 

401 

402 

403 

404 


CARAC 
#19 
SSCO00 
#12 
GETDATA 
co2 


SSsCO1 


CARAC 
#13 

SsC02 
DRAP1 


CARAC 
#13 
SsCo22 
#520 

Cco1 

#0 
(STOCK) ,Y 
##10000000 
$7F7 
STOCK 
SSC2 
STOCK+1 
STOCK+1 
#596 
SsC2 
STOCK 
STOCK+1 
VTAB 
#>MM 

# <MM 
STROUT 
KEYIN 
FINCOPIE 


DRAP1 
SSC3 
DRAP1 
DRAP 
DRAP 
#24 
PAUSE 


col 


STOCK+1 | 
CONTP | 
#$0 

#SFE 

(STOCK) ,Y 

STOCK 

PAUSE2 

STOCK+1 

STOCK+1 | 
#596 | 
PAUSE2 | 
SsCO03 

VTAB 

#>MA 

#<MA 

STROUT 

KEYIN 

#$9B 

FINCOPIE 

INIDRAP 
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405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 


GETDATA 


GET1 


MESECR 


FINCOPIE 


INIDRAP 


ENVOI1 


INITAD 


JSR MESECR 
JMP COI1 

BIT KBD 

BMI GETI 

LDX #0 

LDA (STATUS, X) 
AND #8 

BEQ GETDATA 
LDA (DATA, X) 
STA CARAC 
CLC 

RTS 

BIT STROBE 
LDA KBD 

SEC 

RTS 


JSR VTAB 
LDY #>MC 
LDA #<MC 
JMP  STROUT 


LDY #0 
LDA #$FF 
STA  (STOCK),Y 
JMP  VTAB 


LDA #0 
STA DRAP 
STA  DRAP1 
RTS 


TXA 

PHA 

LDX #0 

LDA (STATUS, X) 
AND #$10 

BEQ ENVOI1 

LDA CARAC 


STA (DATA, X) 


STA STOCK+1 
STA PAGE+1 
DEC PAGE+1 
LDY #0 

LDA #0 

STA (PAGE),Y 
LDA #$26 


STA (PAGE),Y 


474 
475 
476 
477 
478 
479 
480 
481 

482 


527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 


JSR INITCO 


INITCO 
LDA #0 
STA COMPT 
STA COMPT+1 


LDY #$540 


* Efface les messages 


LDA #0 

STA CH 

LDA #23 

STA CV 

JSR BASCALC 


JUMP CLREOL 


543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
993 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 

572 


573 
574 


575 
576 


577 
578 


579 
580 


581 
582 


583 
584 


585 
586 


587 
588 


589 
590 
591 
592 
293 
594 
595 
596 
597 
598 


ENCAR 


ENCARI 


FINCAR 
OKCAR 
OKCARI1 


ME 


MC 


MP 


MD 


MM 


MO 


MF 


BNE 


CARAC 
#510000000 
CARAC 

#0 

TABLE, X 
FINCAR 
CARAC 
OKCAR 


ENCARI1 
ENVOI 
#3 


TABLE, X 
FINCARO 
CARAC 
ENVOI 


OKCAR1 


"MODE ENREGIS 
TREMENT" 


"MODE COPIE D 
"ECRAN" 


"PREMIERE PAG 
E <RETURN>" 


"DERNIERE PAG 
E <RETURN>" 


"MEMOIRE SATU 
REE, ENREGIS 
TREZ <RETURN 
> "” 


"PAUSE. <ESC> 
POUR FINIR" 


"OK POUR FIN 
DE CONSULTA 
TION ?" 


"RETURN = COP 
IE, ESC = FI 
N ” 


* Correspondance codes 
* Apple // - Minitel 


TABLE 


* RC = Envoi 


DFB 


$8D,$13,$41,0 
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599 * Ctrl-K = Connexion 617 DFB $82,$13,$43,0 63e *°° 





600 DFB $8B,$1B,$39,$ 618 * Ctrl-E = Fin de page 633 DFB S$DD,$19,$27,0 
68 619 DFB $85,$0D, 0,0 634 * à : 

601 * Ctrl-W = Deconnexion 620 * à s 635 DFB $FC,$19,$41,$ 

602 DFB $97,$13,$49,0 621 DFB $C0,$19,$41,$ 75 

603 * Ctrl-I = Tab = Suite 61 636 DFB 0 

604 DFB $89,$13,$48,0 622*ç 627 Frescessenmnsemnneess 

605 * Del = Correction 623 DFB S$DC,$19,$4B,S 638 * Bug de l'ONERR GOTO 

606 DFB $FF,$13,547,0 63 629; MÉFERESEE RER 

607 DFB $83,$13,$47,0 624 * é 640 

608 * Ctrl-S = Sommaire 625 DFB $FB,$19,$42,$ 641 PLA 

609 DFB $93,$13,$46,0 65 642 TAY 

610 * Ctrl-G = Guide 626 * 643 PLA 

611 DFB $87,$13,$44,0 627 DFB S$FD,$19,$41,$ 644 LDX $DF 

612 * Ctrl-X = Annulation 65 645 TXS 

613 DFB $98,$13,$45,0 628 +" 646 PHA 

614 * Ctrl-R = Retour 629 DFB $DB,$19,$30,0 647 TYA 

615 DFB $92,$13,$42,0 630 * £ ou # 648 PHA 

616 * Ctrl-B = Répétition 631 DFB $A3,$19,$23,0 649 RTS 

Programme MINBAS’ " CHR$ (34)"?" CHR$ (34): GOSUB 4000: I 

F NM$ = "" THEN 250 

1 PRINT CHR$S (21) 260 IF CT THEN CT = 0: GOTO 255 

2 ONERR GOTO 5000 270 GOSUB 6100 

5 PRINT CHR$ (4) "BLOADMINITEL 280 PRINT D$"BLOAD'"NMS$S",AS$2500":A0 = 1:LF 

10 HIMEM: 8265: TEXT : HOME : GOSUB 2000: = PEEK (43617) * 256 + PEEK (43616) + 
PRINT "POM'S" SPC( 9)"MINITEL/APPLE" SP 9471: POKE 8, INT (LF / 256): POKE 7,L 
C( 8)"POM'S";: GOSUB 2000: VTAB 22: GOS F - PEEK (8) * 256: GOSUB 4100:DK = Al 
UB 2000: VTAB 10: HTAB 10: POKE 34,4: P :FS = 0: GOTO 100 
CRE 35,21 Sauvegarder un fichier 

15 CX = S+ DIM A#(9):NF$ = "NOM DU FICHIER 350 IF PEEK (9728) = 255 OR PEEK (9729) 

= 255 THEN CALL AD,SL,BE: HOME : PRINT 

20 DIM M1$(6),M2$(2),M3$(2),M4$(6),M5$ (4), "RIEN À SAUVEGARDER <RETURN>": WAIT 49 
M$ (6): GOSUB 1000:AD = 8266:SL = 2:EN = 
l'LE = 2:CE = 3:BE = 4:SI = 1: POKE 97 RS Rd 


28,255:D$ = CHR$ (13) + CHR$ (4):DR = 
O:D1$ = CHR$ (4):CU = 1 
Si/lc, paramètres de l'interface modem 

30 IF PEEK (64435) = 6 AND PEEK (64448) 
= O0 THEN PRINT D$'"BRUNPARAM 
Menu principal 

100 FOR I = O0 TO 6:M$(I) = M1$(I): NEXT :C 
H = AO:TT$ = "MENU GENERAL": GOSUB 1100 
:A0 = CH:A2 = O:CT = 0 

105 ON (CH = O0 OR CH = 5) AND SL = 6 GOTO 
4300 

110 ON CH + 1 GOTO 150,160,250,350, 200, 440 
0, 3000 

150 FOR I = O TO 2:M$(I) = M2$(I): NEXT :C 
H = Al:TT$ = M1$(A0): GOSUB 1100:A1 = C 
H: ON CH + 1 GOTO 400,500,100 

160 HOME : PRINT : IF PEEK (9728) = 255 © 
R PEEK (9729) = 255 THEN PRINT " RIEN 
À CONSULTER, FAITES RETURN...": CALL À 
D,SL,BE: GOSUB 6000:A0 = 2: GOTO 100 

170 GOTO 150 
Charger un fichier 

200 FOR I = O TO 2:MS$(I) = M3$(I): NEXT :C 
H = A2:TT$ = M1$(4): GOSUB 1100:A2 = CH 
:AO0 = 0: ON CH + 1 GOTO 600, 700,100 

250 FOR I = O0 TO 2:M$(I) = M2$(I): NEXT :C 
H = Al:TT$ = MI$(2): GOSUB 1100:A1 = CH 

252 ON A1 = 2 GOTO 100 

255 HOME : VTAB 8: PRINT NF$"A CHARGER OU 
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Apple ][+, //e ou Dos 
Carte SSC 


+12 ST8q 


DIN 180° 
S broches 
Mâle 


L 


DIN 180° 
5 broches 


Môle 


Prises 
vues côté 
soudures 





Composants nécessaires : 2 transistors 2N2222, 2 résistances de 10 KQ, 1 de 18 KQ 











351 
352 


353 
355 


360 
370 
376 
378 
380 


400 


405 


410 


412 


415 
420 


425 
430 


450 


452 
455 


460 


470 


480 
500 


505 


515 
520 


530 


550 


555 
560 


152,128: POKE 49168, 0:GOTO 100 


FOR I = 0 TO 2:M$(I) = M2$(I): NEXT :C 
H = Al1:TT$ = M1$(3): GOSUB 1100:A1 = CH 
ON A1 = 2 GOTO 100 
IF Al < > DK THEN 4200 
HOME : VTAB 8: PRINT NF$"A SAUVEGARDER 
OU " CHR$S (34)"?" CHRS (34) :GOSUB 4000 
: IF NM$ = "" THEN 350 
IF CT THEN CT = 0: GOTO 355 
GOSUB 6100 
IF DR THEN 380 
GOSUB 4100 
PRINT D$"BSAVE"NMS",A$2500,L"LF:A0 = 1 
:FS = 0: GOTO 100 
HOME : ON AO + 1 GOTO 405,450 
Recevoir une séquence 
PRINT : PRINT " ENVOI : RETURN": 
PRINT : PRINT " CORRECTION : CTRL-C/DEL 
": PRINT " ANNULATION : CTRL-X": PRINT 
" SUITE : CTRL-I/TAB": PRINT " REP 
ETITION : CTRL-B 
PRINT " SOMMAIRE : CTRL-S": PRINT " 
GUIDE : CTRL-G": PRINT " RETOUR : 
CTRL-R": PRINT " CONNEXION : CTRL-K": 
PRINT "FIN DE PAGE : CTRL-E" 
PRINT "DECONNEXION : CTRL-W": PRINT " 
FIN : ESC 
GOSUB 7000 
CALL AD,SL,EN: PRINT D$"PR#0": IF PEE 
K (9728) < > 255 THEN Al = 0: GOSUB 41 
00:DR = 1:DK = 0:FS = 1: GOTO 355 
DR = 0 
GOTO 100 
Consulter une séquence 
ON SL = 6 GOTO 4300: IF A1 < > DK THE 
N 4200 
GOSUB 7000 
M$(0) = "1200 BAUDS":MS$(1) = "4800 BAUD 
S":M$S(2) = M3$(2):I = 3:CH = BD: GOSUB 
1100: ON CH = 2 GOTO 150:BD = CH: ON BD 
GOSUB 4600 
HOME : PRINT : PRINT "FLECHES : PASSER 
DE PAGE EN PAGE": PRINT " ESC 
: ABANDONNER LA CONSULTATION 
CALL AD,SL, LE: PRINT D$"PR#0": ON BD G 
OSUB 4610 
GOTO 100 
HOME : ON AO + 1 GOTO 505,550 
Recevoir une copie d'écran 
PRINT : PRINT "MODE COPIE D'ECRAN": PR 
INT : PRINT : PRINT "FAIRE <RETURN> AVA 
NT CHAQUE COPIE": PRINT "<ESC> POUR FIN 
IR 
GOSUB 7000 
CALL AD,SL,CE: PRINT D$"PR#0": IF PEE 
K (9729) < > 255 THEN Al = 1: GOSUB 41 
00:DR = 1l:DK = 1:FS = 1: GOTO 355 
DR = 0: GOTO 100 


Consulter une copie d'écran 

ON Al < > DK GOTO 4200: FOR I = 0 TO 
3:MS$(I) = M5$(I): NEXT :CH = A3:TTS = M 
1$(1) 
CH 
ON CH < 2 AND SI = 6 GOTO 4300 
ON A3 + 1 GOTO 750,750, 750,150 


+ " —- " + M2$(1): GOSUB 1100:A3 = 


600 


610 
700 


710 
750 
760 


770 
775 


780 


795 


FOR I = O0 TO 6:M$(I) = M4$(I): NEXT :C 
H = SL - 1:TT$ = M1$(4) + " - " + M3$S(A 
2): GOSUB 1100: IF CH < 6 THEN SL = CH 
LU | 


A2 = 2: GOTO 200 


FOR I = O0 TO 6:M$(I) = M4$(I): NEXT :C 
H = SI - 1:TT$ = M1$(4) + " - " + M3$(A 
2): GOSUB 1100: IF CH < 6 THEN SI = CH 
+ 1 


A2 = 2: GOTO 200 


ON A3 + 1 GOTO 775,775, 760 

HOME : VTAB 8: PRINT NF$"'TEXT' RECEPT 

EUR OU " CHR$ (34)"?" CHR$ (34): GOSUB 

4000: IF NM$ = "" THEN 550 

IF CT THEN CT = 0: GOTO 760 

HOME : PRINT : PRINT "TRANSFERT EN COU 

RS...": PRINT : PRINT "<ESC> POUR L'INT 

ERROMPRE": IF A3 < > 2 THEN 795 

PRINT D$"OPEN"NM$S: PRINT D1$"WRITE'"NMS 

: GOTO 800 

PRINT D$"PR#"SI: IF A3 = O0 THEN PRINT 
CHR$ (27) CHR$ (69) CHR$ (14) 


800 AC = 9729 


810 
820 


822 


825 


830 


900 


910 


1000 


1010 
1020 


1030 


1040 


1050 


1060 
1070 


1080 
1090 


1100 


1105 


IF OC = 255 THEN 900 
: FOR 
PRINT : 


OC = PEEK (AC): 
IF OC = 254 THEN PRINT : PRINT 

I = O0 TO 39: PRINT "-";: NEXT : 
PRINT :AC = AC + l: GOTO 810 
POKE 2039,0OC + 128 

IF PEEK (49152) = 155 THEN POKE 4916 

8,0: GOTO 900 

PRINT CHR$ (OC);:AC = AC + 1: GOTO 81 

0 

PRINT D$"CLOSE": 
CHR$ (15) 
PRINT CHR$ (12): PRINT D$"PR#0": POKE 
2039,160: GOTO 100 


Initialise les tableaux pour les menus 

DATA MINITEL VERS APPLE, CONSULTATION, 
CHARGER, SAUVEGARDER, OPTIONS, ENVOI D'UN 
FICHIER, FIN 

FOR I = O0 TO 6: READ M1$(I): NEXT 
DATA SEQUENCES, PORT MINITEL, COPIES D' 
ECRAN, PORT IMPRIMANTE, RETOUR, RETOUR 
FOR I = O0 TO 2: READ M2$(I),M3$(I): N 
EXT 

FOR I = O0 TO 4:M4$(I) = "PORT "+ ST 
R$ (I + 1): NEXT :M4$(6) = "RETOUR":M4 
$(5) = "NEANT 

DATA VERS IMAGEWRITER/DMP, VERS AUTRE 
IMPRIMANTE, VERS UN FICHIER 'TEXT',RETO 
UR 

FOR I = O0 TO 3: READ M5$(I): NEXT 
DATA 27,58,107,118,32,27,58,107,100 
se 

FOR I = O0 TO 9: READ A$(I): NEXT 
RETURN 


IF A3 = 0 THEN PRINT 


SP Affichage des menus 
HOME :TT$S = " "+ TT$ + " ": PRINT S 
PC( (40 - LEN (TT$)) / 2): INVERSE : 


PRINT TT$: NORMAL :MA = I - 1: FOR I = 
O0 TO MA: VTAB I * 2 + 8: PRINT SPC( 

12)M$(I): NEXT :ESC = 0 

IF LEFT$S (M$(0),1) = "M" AND FS THEN 
VTAB 14: HTAB 12: INVERSE : PRINT " 

"M$ (3)" ": NORMAL 
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1110 
1120 
1130 
1140 


1150 


1160 
1170 


1200 


1300 


1320 
1330 
2000 


3000 


4000 
4002 


4003 


4030 


4040 


4050 


4055 


4056 
4057 


4060 
4100 


4200 


4210 


4300 


4400 


4410 
4420 





GOSUB 1300 

GOSUB 6000:CA = PEEK (49152) 

IF CA = 13 THEN RETURN 

IF CA = 8 OR CA = 11 THEN CH = CH - 1 
: IF CH < O0 THEN CH = MA: GOTO 1110 
IF CA = 21 OR CA = 10 THEN CH = CH + 
1: IF MA < CH THEN CH = 0: GOTO 1110 
IF CA = 27 THEN CH = MA: RETURN 

GOTO 1110 


RETURN 


Affiche la flèche des menus 

FOR I = 0 TO MA: VTAB I * 2 + 8: POKE 
36,7: IF CH = I THEN PRINT "*-->";: 
GOTO 1330 

PRINT SPC( 4) 

NEXT : RETURN 

FOR I = 1 TO 5: PRINT "-------- “:: NE 
XT : RETURN 


Fin. ESC ne permet pas de sortir 
ON CA = 27 GOTO 100: END 


Saisie le nom du fichier 
IF UK = 1 THEN CT = l:UK = O0: RETURN 


VTAB 10: POKE 36,10: CALL - 958: PRI 
NT Mirti etes otece ":: POKE 36,10 

INPUT "";NM$: IF NM$ = "" THEN RETU 
RN é 

IF LEN (NM$) > 20 THEN : CALL AD,SL, 
BE: GOTO 4000 


IF LEN (NM$) < 3 THEN 4050 

IF ( LEFT$ (NM$,2) = "C." OR LEFTS ( 
NM$,2) = "S.") AND CU THEN NM$ = RIGH 
T$ (NMS$, LEN (NM$) - 2) 

IF ( ASC ( LEFT$S (NM$,1)) < 65 OR AS 
C ( LEFT$ (NM$,1)) > 90) AND NM$ < > 
"?" THEN CALL AD,SL,BE: GOTO 4000 
FOR I = O TO l1:M$(I) = "LECTEUR " + 
STR$ (I + 1): NEXT :M$(2) = M2$(2):I = 

3:CH = PEEK (43624) -— 1: GOSUB 1100: 

IF CH = 2 THEN CT = l: RETURN 
POKE 43624,CH + l: HOME 

IF NM$ = "?" THEN VTAB 10: PRINT D$" 


CATALOG": PRINT : PRINT "<RETURN>": GO 
SUB 6000: HOME :CT = 1 

RETURN 

LF = PEEK (8) * 256 + PEEK (7) - 947 
1: RETURN 

Erreur de type de fichier 

HOME : PRINT : PRINT "IL N'Y À PAS DE 


"M2$(1 - DK): PRINT "EN MEMOIRE... <R 
ETURN>": CALL AD,SL,BE 


GOSUB 6000:A1 = DK: GOTO 100 


L'une des interfaces manque 

HOME : PRINT : PRINT "UTILISEZ LE MEN 
U ‘OPTIONS' POUR": PRINT "INDIQUER LA 

CONFIGURATION <RETURN>": CALL AD,SL,BE 
:A0 = 4: GOSUB 6000: GOTO 100 


Envoi d'un fichier au Minitel 

HOME : VTAB 8: PRINT NF$"'TEXT' À ENV 
OYER":CU = 0: GOSUB 4000:CU = 1: IF NM 
$ = "" THEN 100 

IF CT THEN CT = 0: GOTO 4400 

HOME : PRINT : PRINT "TRANSFERT EN CO 
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4430 


4440 


4445 
4450 


4460 
4500 


4600 


4605 


4610 


4615 


5000 
5005 
5010 
5020 
5030 
5035 
5040 
5045 
5050 
5060 
5070 
5080 


5090 
5091 


6000 


6100 
6110 
6120 


7000 





URS...": 
NTERROMPRE 

PRINT D$"PR#"SL: PRINT D$"OPEN"NMS: P 
RINT D1$"READ'"NMS 
GET R$: IFRS = 


PRINT : PRINT "<ESC> POUR L'I 


CHR$ (13) THEN POKE 
6,19: CALL AD,SL,CX: POKE 6,72: CALL 
AD,SL,CX: FOR I = 1 TO 2400: NEXT : GO 

TO 4440 

FOR I = 1 TO 35: NEXT 

POKE 6, ASC (R$): CALL AD,SL,CX:: IF 
PEEK (49152) = 155 THEN POKE 49168,0 
: GOTO 4500 


GOTO 4440 ; 
PRINT D$"CLOSE": PRINT D1$"PR#0": GOT 
O 100 


Minitel et interface en 4800 bauds 

VTAB 17: FOR J = O0 TO 4: POKE 6,A%(J) 
: CALL AD,SL,CX: NEXT : PRINT : PRINT 
D$"PR#"SL: PRINT " " CHR$ (1)"12B": PR 
INT D$"PR#0": VTAB 17: PRINT SPC( 4): 
PRINT 

RETURN 


Minitel et interface en 1200 bauds- 

VTAB 17: FOR J = 5 TO 9: POKE 6,A%(J) 
: CALL AD,SL,CX: NEXT : PRINT : PRINT 
D$"PR#"SL: PRINT " " CHR$ (1)"8B": PRI 


NT D$"PR#0": VTAB 17: PRINT SPC( 4): P 
RINT 

RETURN 

Traitement des erreurs 

CALL 9461:U = PEEK (222): IFU=5T 
HEN 4500 


CALL AD,SL,BE:U = PEEK (222): IFU= 
255 THEN RESUME 

LI = PEEK (219) * 256 + PEEK (218): 

PRINT D$"PR#O 
VTAB 18: PRINT : IF U = 8 THEN PRINT 
"ERREUR D'ENTREE/SORTIE 


IF U = 6 THEN PRINT "FICHIER INTROUV 


ABLE 

IF U = 13 THEN PRINT "ERREUR DE TYPE 
DE FICHIER 

IF U = 9 THEN PRINT "PAS DE PLACE SU 
R LE DISQUE 

PRINT " <RETURN>": WAIT 49152,128: PO 
KE 49168,0 


IF LI = 280 THEN 255 

IF LI = 380 THEN 355 

IF LI = 780 THEN 760 

IF LI = 4057 THEN UK = l: GOTO 4000 
IF LI = 4430 THEN 4400 

END 


SP attend une touche 
WAIT 49152,128: POKE 49168,0: RETURN 


Préfixes pour fichiers binaires 

IF Al = O0 THEN NM$ = "S." + NMS 
IF Al = 1 THEN NM$ = "C." + NM$ 
RETURN 


Initialise SSC Minitel 
PRINT D$"PR#"SL: PRINT D$"PR#0": RETU 
RN 





Récapitulation 
MINITEL' 


Après avoir saisi ce code sous 


moniteur, vous le sauvegarderez par : 


BSAVE MINITEL,A$204A,L$4B5 


204A:20 F5 E6 8A 48 18 

2050:69 CO 85 FD 68 0A OA OA 
2058:0A 69 89 85 EB 85 ED C6 
2060:ED A9 CO 85 EC 85 EE A9 
2068:00 85 FC 20 F5 E6 8A C9 
2070:01 FO 28 C9 02 DO 03 4C 
2078:97 21 C9 03 DO 03 4C 5C 
2080:22 C9 04 DO 03 4C 73 23 
2088:C9 05 DO 03 4C AO 23 60 
2090:20 92 23 A0 23 A9 D8 20 
2098:3A DB 60 20 90 20 20 43 
20A0:23 2C 00 CO 30 3C A2 00 
20A8:A1 EB 29 08 FO F3 Al ED 
20B0:A0 00 91 07 09 80 8D F7 
20B8:07 E6 07 DO 1C E6 08 A5 
20C0:08 C9 96 DO 14 C6 07 C6 
20C8:08 20 92 23 A0 24 A9 2D 
20D0:20 3A DB 20 OC FD 4C 07 
20D8:21 E6 1C DO 02 E6 1D 4C 
20E0:A1 20 2C 10 CO AD 00 CO 
20E8:09 80 85 06 C9 9B DO 25 
20F0:20 92 23 AO 24 A9 53 20 
20F8:3A DB 20 OC FD C9 9B FO 
2100:06 20 90 20 4C A1 20 A0 
2108:00 A9 FF 91 07 C8 C8 C8 
2110:91 18 4C 92 23 A2 00 BD 
2118:A4 24 F0 6B C5 06 FO 06 
2120:E8 E8 E8 E8 DO F1 8A C9 
2128:2D BO 49 AO 00 A5 1D DO 
2130:20 A5 1C C9 64 BO 1A 71 
2138:18 91 18 90 04 C8 38 BO 
2140:01 C8 A5 1D 71 18 91 18 
2148:20 6B 23 20 64 23 4C 74 
2150:21 18 A5 1C 71 18 48 90 
2158:04 C8 38 BO 01 C8 A5 1D 
2160:71 18 E6 18 E6 18 AO 01 
2168:91 18 20 6B 23 88 68 91 
2170:18 20 64 23 AO 03 E8 BD 
2178:A4 24 F0 08 85 06 20 32 
2180:23 88 DO F2 4C A1 20 20 
2188:32 23 4C Al 20 20 92 23 
2190:A0 23 A9 CB 4C 3A DB 20 
2198:8D 21 20 8A 23 A0 00 84 
21A0:18 84 07 A9 25 85 19 85 
21A8:08 E6 08 DO OF A0 O1 B1 
21B0:18 C9 FF FO 75 85 08 88 
21B8:B1 18 85 07 E6 18 E6 18 
21C0:A0 00 B1 07 30 64 85 06 
21C8:09 80 8D F7 07 20 32 23 
21D0:E6 07 DO 02 E6 08 A0 00 
21D8:A5 07 DI 18 DO E2 C8 A5 
21E0:08 D1 18 DO DB AD 00 CO 
21E8:10 FB 2C 10 CO C9 9B FO 
21F0:4F C9 8A FO 12 C9 88 FO 
21F8:0E C9 95 FO BO C9 8B FO 
2200:AC 20 73 23 4C E5 21 38 
2208:A5 18 E9 02 FO O0B 38 E9 
2210:02 85 18 20 8A 23 4C AD 
2218:21 20 73 23 20 92 23 A0 
2220:23 A9 FF 20 3A DB 4C 37 


2228: 


2230 


2238: 
2240: 
2248: 
2250: 
2258: 
2260: 
2268: 
2270: 
2278: 
2280: 


2288: 
2290: 
2298: 
22A0: 
22A8: 
22B0: 
22B8: 


22C0 


22C8: 
22D0: 
22D8: 
22E0: 
22E8: 
22F0: 
22F8: 
2300: 
2308: 
2310: 
2318: 
2320: 
2328: 
2330: 
2338: 
2340: 
2348: 
2350: 
2358: 
2360: 
2368: 


22 60 


:A0 24 


OC FD 
20 92 
3A DB 
CF F0 


4C 


CA 22 
1B DO 
C9 13 
22 B0 
C9 0D 


20 
A3 
20 
23 
20 
06 
92 
20 
F7 
DO 
EC 
DO 


73 
16 
8D 
A0 
oc 
20 
23 
FD 
4C 
0A 
88 
02 


23 
20 
21 
24 
FD 
8D 
20 
22 
CA 
A0 
DO 
C6 


20 
3A 
4C 
A9 
29 
21 
43 
90 
22 
oc 
F8 
1E 


23 
20 
21 
20 
C9 
E5 
4C 
C3 
06 
FD 
06 
06 


80 colonnes et 
HGR2 


Si votre carte 80 colonnes 
TEXT Apple est active 
(PR#3), l'ordre HGR2 

nécessairement à effacer 


graphique 2. Le remède : 


ne vous conduit pas 


et afficher la page 


avant de faire HGR2, 


faites POKE 49164,0 et 


POKE 49152,0 ce qui 
désactive la carte et 
commute la mémoire 
principale. 


c9 
A0 
07 
08 
08 
20 
23 
:1A 
62 
00 
0A 
02 
A9 
c9 
18 
30 
FO 
2C 
20 
3A 
4C 
1E 
29 
68 
1A 
08 
00 
20 
85 





E6 


c9 
03 
1C 
14 
A0 
oc 
0A 
18 
20 
07 
08 
92 
DB 
20 
22 
A1 
85 
00 
23 
A9 
00 
A2 
A5 
00 
18 
19 
26 
A9 
90 


2370: 73 
2378:40 
2380:30 
2388:A8 
2390:23 
2398:85 
23A0:A5 
23A8:BD 
23B0:09 
23B8:32 
23C0:F0 
23C8:D0 
23D0:CC 
23D8:CD 
23E0:CS5 
23E8:C5 
23F0:A0 
23F8:A7 
2400:D2 
2408:D0 
2410:D4 
2418:D2 
2420:C1 
2428:D5 
2430:CF 
2438:D5 
2440:D2 
2448:DA 
2450:CE 
2458:AE 
2460:D0 
2468:C9 
2470:D5 
2478:C5 
2480:D4 
2488:00 
2490:BD 
2498:A0 
24A0:C9 
24A8: 8B 
24B0:89 
24B8:83 
24C0:87 
24C8:92 
24D0:85 
24D8:DC 
24E0:FD 
24E8:A3 
24F0:FC 
24F8:A6 


23 
98 
co 
60 

60 
25 
06 
A4 
E8 
23 
08 
F2 
C5 
CF 
c7 
CE 
C3 
C5 
C5 
C1 
D5 
CE 
c7 
D2 
C9 
D2 
C5 
A0 
BE 
A0 
CF 
D2 
D2 
A0 
C1 
D2 
A0 
C5 
CE 
1B 
13 
3 
13 
13 
0D 
19 
19 
19 
19 
DF 





48 8A 48 A0 
CA DO FD 2C 
F4 68 AA 68 
85 06 20 32 
65 24:A9 17 
FB 4C 9C FC 
85 06 A2 00 
0A C5 06 FO 
E8 DO F1 4C 
E8 BD A4 24 
20 32 23 88 
CF C4 C5 A0 
D5 D2 C5 00 
A0 C5 CE D2 
D4 D2 C5 CD 
CD CF C4 C5 
C9 C5 A0 C4 
C1 CE 00 DO 
C5 D2 C5 A0 
AO BC D2 C5 
BE 00 C4 C5 
D2 C5 A0 DO 
BC D2 C5 D4 
00 CD C5 CD 
AO D3 C1 D4 
AC A0 C5 CE 
D3 D4 D2 C5 
C5 D4 D5 D2 
C1 D5 D3 C5 
D3 C3 BE A0 
A0 C6 C9 CE 
CB A0 DO CF 
C9 CE AO C4 
CE D3 D5 CC 
CF CE AO BF 
D5 D2 CE A0 
DO C9 C5 AC 
A0 BD A0 C6 
8D 13 41 00 
97 13 49 00 
FF 13 47 00 
93 13 46 00 
98 13 45 00 
82 13 43 00 
CO 19 41 61 
FB 19 42 65 
DB 19 30 00 
DD 19 27 00 
00 68 A8 68 


Récapitulation 
‘PARAW 


NB : Ce fichier n'est utile que pour 
utilisation sur un Apple lc. 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par : 
BSAVE PARAM,A$300,L$27 


0300:A9 38 8D 7C 04 A9 6B 8D 
0308:7D 04 A9 81 8D 7E 04 A9 
0310:7C 85 42 85 3C A9 04 85 
0318:43 85 3D A9 7E 85 3E A9 
0320:04 85 3F 38 4C 11 C3 





Pom's n° 27 


APP 


L'objet de ces lignes de présentation n'est pas de faire une 
analyse exhaustive du nouveau bébé (bien beau) ni de céder à la 
facilité qui consiste à reprendre ligne à ligne le dossier de presse 
diffusé par le constructeur. Voici simplement notre premier 
contact et quelques caractéristiques ; gageons toutefois que nous 
vous ferons profiter sans tarder de nos premières lignes de 
programme 16 bits. 


Le processeur 


Empiler directement un registre, compter de O0 à 1000 (ou 
65535) directement, disposer de branchements relatifs longs, de 
sauts indirects à des sous-programmes, utiliser un adressage sur 
24 bits, déplacer des blocs de mémoire (32Ko en 80 ms) sont 
quelques-unes des possibilités du 65816. Ce processeur qui reste 
dans la ligne des 6502 et 65C02 séduira leurs adeptes : la lecture 
de ses caractéristiques ne dépaysera pas le Lecteur de Pom's 
comme il put l'être par l'arrivée du 68000. Le 65816 qui est une 
évolution, non une révolution, met à la disposition du 
programmeur : 


+ Accumulateur À 16 bits, 

+ Registres X et Y 16 bits, 

° Registre DBR, le numéro de la ‘page’ DATA, c'est à dire les 
8 bits de poids fort dans les adressages longs, 

+ Registre PBR, le numéro de la ‘page’ de l'instruction 
suivante (Program Bank Register), le PC contenant les 16 
bits de poids faible, 

+ _ Registre D pour les adressages directs, 

+ Registre d'état P, 

+  Pointeur de pile S sur 16 bits. 


Un petit tour en moniteur par le CALL-151 (on est en mode 
émulation) nous fait découvrir ce nouveau listing : 


FF/19D8:00 00 El E2 30 64 A1 60-..ab0d!" 
FF/19E0:32 D5 BD A0 D5 F3 E5 E4-2U= Used 
FF/19E8:A0 EC E9 F3 F4 A0 A0 DO- list P 
FF/19F0:BD A0 DO F5 F2 E7 E5 A0-= Purge 

FF/19F8:EC E9 F3 F4 A0 A0 C6 BD-list F= 
FF/1A00:A0 C6 F2 E5 E5 A0 EC E9- Free li 
FF/1A08:F3 F4 A0 A0 D1 BD A0 D1-st Q=0Q 
FF/1A10:F5 E9 F4 3B 8D 8D A3 A0-uit;..# 

FF/1A18:A0 A0 A0 C8 El EE E4 EC-  Handl 
FF/1A20:E5 A0 A0 C1 E4 E4 F2 A0-e Addr 

FF/1A28:A0 C1 F4 F4 F2 A0 A0 C9- Attr I 
FF/1A30:C4 A0 A0 A0 A0 D3 E9 FA-D Siz 
FF/1A38:E5 AC A0 A0 A0 DO F2 E5-e Pre 
FF/1A40:F6 A0 A0 A0 CE E5 F8 F4-v Next 
FF/1A48:A0 A0 A0 C6 F2 ES E5 35- Frees 


À gauche, le numéro de la ‘page’ sous la forme "nn/", on devine 
rapidement qu'il y a 256 ‘pages’ mais qui n'existent évidemment 
qu'en fonction de la RAM disponible. A droite un équivalent en 
ASCII, pratique. Surprise : on est gratifié du bip mérité par 
FBEA4G, et FC58G efface l'écran comme prévu, mais le listing 
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GS 


donne ceci : 
00/FC58: 00 00 BRK 00 
00/FC5A: 00 00 BRK 00 
00/FC5C: 00 00 BRK 00 
00/FC5E: 00 00 BRK 00 
00/FC60: 00 00 BRK 00 
00/FC62: 00 00 BRK 00 
00/FC64: 00 00 BRK 00 
00/FC66: 00 00 BRK 00 
00/FC68: 00 00 BRK 00 
00/FC6A: 00 00 BRK 00 
00/FC6C: 00 00 BRK 00 
00/FC6E: 00 00 BRK 00 


Ceci parcequ'au-dessus de $BFFF, en mode émulation, le saut 
se fait dans la page $FF, là où se trouve la ROM : 


FF/FC58: A0 05 LDY #05 
FF/FCSA: 80 CD BRA FC29 (-33)} 
FF/FCS5SC: EB XBA 

FF/FC5SD: 4C EB FC JMP FCEB 
FF/FC60: 00 00 BRK 00 
FF/FC62: A9 00 LDA #00 
FF/FC64: 85 24 STA 24 
FF/FC66: E6 25 INC 25 
FF/FC68: A5 25 LDA 25 
FF/FC6A: C5 23 CMP 23 
FF/FC6C: 90 B6 BCC FC24 (-4A)} 
FF/FC6E: C6 25 DEC 25 
FF/FC70: A0 06 LDY #06 
FF/FC72: 80 B5 BRA FC29 (-4B)} 


L'exploration de cette ROM de 128Ko laisse paraître un ‘tableau 
de bord’ qui fait penser au Macintosh. Cette visite nous 
conduira également à une table de sauts dans la page $E1 qui 
rappelle aussi le sus-cité. 


Ouvert, fermé ? 


Le tableau de bord, en plusieurs menus et à l'ergonomie 
agréable, donne la possibilité de régler le niveau sonore, la 
fréquence du Bip, la couleur du fond, celle des caractères, celle de 
la marge de l'écran, la ‘nationalité’ des caractères affichés 
(pourquoi les Danois perdraient-ils leur à ?), celle du clavier. 
Bien sûr, il donne également accès à l'horloge mais il séduit 
surtout par la gestion de l'affectation des slots. Par défaut, nous 
trouvons dans ceux-ci, connectés ‘soft’, les interfaces intégrées 
suivantes : 


SLOT 1 Imprimante 

SLOT 2 Communication 
SLOT 3 80 colonnes 

SLOT 4 Souris 

SLOT 5 ‘Smart slot’ 

SLOT 6 Lecteur de disquettes 
SLOT 7 Libre 





Ceci sans carte dans l'appareil. Notons que le slot 7 peut être 
affecté à l'interface AppleTalk intégrée. Dans ce cas, l'interface 
communication est indisponible. 


Pour chacun des ports, il est possible d'imposer à la machine 
l'utilisation de l'interface connectée physiquement. Nul besoin 
de modem ? Mettre en port 2 la carte Z80, l'indiquer par ce 
tableau de bord et le CP/M est accessible. Le IIGS donne 
également le choix de l'interface qui servira au ‘boot’. Il est 
même possible de booter sur le disque virtuel si on a pris soin 
de l'installer, d'y copier une disquette avant le CTRL-G 
RESET... Vitesse garantie. 


Pour les interfaces imprimante et communication, le réglage des 
paramètres peut également se faire par ce tableau de commande. 


Débit, parité, format et protocole de transmission des données 
sont accessibles sans lever le capot ce qui, vu la conception de 
l'ouverture, ne nous frustera pas. Cet aspect de la machine rend 
plus vivable le ‘système ouvert’ : Pom's sait par expérience 
toute la souplesse tirée de multiples cartes mais sait également 
toute la lassitude de retirer le moniteur pour passer du mode 
imprimante au mode communication, pour tourner le ‘Jumper 
Bloc’ ; parfois, imiter les systèmes fermés a du bon... 


La compatibilité 


Ce tableau de bord offre également le choix de la vitesse du 
processeur : 1 ou 2,8 MHz. Celle des Apple // est à choisir si 
l'ouverture de Guillaume Tell de la disquette Pom's 5 doit rester 
compréhensible, ou si votre Z80 est perdu par la vitesse 
standard du 1IGS. La fréquence 2,8 MHz est à choisir pour tous 
les programmes indépendants du ‘timing’ ou ceux qui sont 
synchronisés sur la vidéo. L'utilisation de Big Mac par exemple 
devient étonnante, le gain est remarquable sur la plupart des 
programmes surtout si l'on considère la gestion de la carte 80 
colonnes, sensiblement plus nerveuse que celle du //e. 


La compatibilité semble assurée très largement, bien que notre 
AppleWriter DOS 3.3 soit inutilisable et que la version 
ProDOS soit dépassée par les nouvelles interfaces. Même 
Pascal (dont la portabilité semble surfaite lorsqu'on passe du //e 
au //c...) nous a paru s'accomoder, mais seule l'expérience en 
dira plus. Logiquement, les programmes qui cherchent une 
adresse particulière dans la carte souris ou 80 colonnes courent à 
l'échec mais l'émulation semble très au point, les disquettes 
Pom's resteront d'actualité pour celui qui gardera un lecteur 5,25 
pouces car le IIGS est équipé en standard de lecteurs de disquettes 
3,5 pouces 800K, ceux du Macintosh, un témoin rouge de 
fonctionnement en prime. 


Quelques 
caractéristiques du IIGS 


Bien des photos des écrans créés à l'aide du programme de dessin 
GSPaint ont fait les couvertures. I] reste que l'utilisation est 
spectaculaire, toutes les facilités du Macintosh sont présentes 
dans ce programme auquel on pardonne d'être plus lent, vues les 
couleurs disponibles. Le plus étonnant est l'édition de ces 
couleurs : trois ascenceurs ou potentiomètres pour doser les 
rouge, vert et bleu, un pour régler la luminosité et un pour la 
saturation : les 4096 nuances sont là. Ajoutons que les ‘motifs’ 
sont éditables en couleurs mais comment obtenir une copie 
papier qui respecte l'œuvre ? 


En résumé, le IIGS, c'est : 


+ _ Une unité centrale 128K de ROM et 256 de RAM extensible 
à 4 mégaoctets, 

+ Un clavier détachable, ou plutôt détaché, avec bloc 
numérique et souris, 

+ Moniteur couleur, 

+ Lecteur de disquette 3,5 pouces, 

+ 640 x 200 points à l'écran en 4 couleurs parmi 4096 ou 320 
x 200 en 16 couleurs, 

+ Son 16 voix 

+ 8 connecteurs d'extension (dont un pour une extension 
mémoire), 

+ Deux interfaces série, une souris, une 80 colonnes, une 
AppleTalk. 


Les Lecteurs de Pom's qui se sont penchés sur les sources des 
programmes Macintosh se sont alloués un avantage certain pour 
la programmation de leur futur GS. Le contact avec les routines 
graphiques des 128K de ROM leur sera familier : SetClipRgn, 
ObscureCursor, GetPenState, TextFace et autre GetFontInfo 
sont apparues dans le cahier Mac depuis bien des numéros. Les 
paramètres se passent ici aussi par la pile, pile qui atteint 64K. 


Le graphisme 

Point fort du nouvel arrivé, le graphisme Super-Haute 
Résolution mérite quelques précisions. 

L'écran est divisé en 200 lignes de 320 ou 640 points. A chaque 
ligne est affecté un octet qui en donne les caractéristiques : 


4 bits pour indiquer quelle table, parmi les 16 tables de 16 
couleurs, doit être utilisée, 

1 bit indiquera si la ligne est en mode 320 ou 640 points, 

1 pour activer le mode remplissage, 

1 bit pour les interruptions. 


La table de 16 couleurs... 

Choisie pour la ligne est composée de 16 fois deux octets. 
Dans ces 2 octets, 4 bits donnent le niveau de bleu, 4 pour le 
vert et 4 pour le rouge, 4 ne servent pas. 


Mode 320 ou 640 

En mode 320 chaque pixel est défini non par 1 bit, mais par 4 
qui donnent le numéro de la couleur de ce pixel dans la table de 
la ligne. 

En mode 640, chaque pixel est défini par 2 bits donnant le 
numéro de sa couleur dans une partie de la table de la ligne, il y 
a donc 4 pixels par octet. Le premier pixel sera de l'une des 
couleurs 0 à 3, le deuxième dans l'une des couleurs 4 à 7, etc. 2 
pixels adjacents ne peuvent donc être de la même couleur que si 
la table est composée de 4 fois les mêmes couleurs. 


Interruptions 

Le tracé d'une ligne peut générer une interruption : il est donc 
possible d'en profiter pour changer la palette de couleurs avant. 
Gymnastique complexe qui rend possible l'affichage de 256 
couleurs sur le même écran. 

Remplissage 

Si le bit de remplissage de l'octet de contrôle d'une ligne est à 1, 
la couleur 0 de la table de couleur est indisponible : les pixels 
définis de la couleur 0 seront en fait de la dernière couleur 
utilisée. 


De telles possibilités graphiques devraient donner l'idée 
d'utilitaires… 
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Lassé des saisies au clavier ? 
Choisissez une interface directe et 
conviviale : le crayon optique, un 
peu délaissé depuis l'arrivée des 
Macintosh, Apple //c et leur 
cortège de souris. 

Le petit montage proposé ici ne 
saurait rivaliser avec la précision 
des petits rongeurs à roulettes, 
mais pour passer de menus en 
menus, il s'avère particulièrement 
efficace. De plus, le coût de 
l'opération (moins de 40,00 F) la 
rend attrayante. 


Le principe : 
Ile # Ile 


Les principes retenus pour le 
contrôle du balayage vidéo étant 
différents sur les //c et //e, la 
routine est composée de deux 
parties indépendantes. 


Le manuel de référence de 
l'Apple //e signale un octet qui 
change de valeur au début et à la 
fin du balayage vidéo : $C019. 
Pour connaître la position d'un 
crayon optique sur l'écran, il 
convient de ‘chronométrer’ le 
temps écoulé entre le début du 
balayage et la réception de la 
lumière par le crayon. Cette 
réception sera contrôlé par un 
phototransistor relié au connec- 
teur des poignées de jeu. 


Le programme en assembleur 
respecte les étapes suivantes : 


* attendre que le crayon ne soit 


plus éclairé pour laisser finir. 


un éventuel balayage en cours, 
attendre le début d'une trame, 
commencer alors le comptage, 
attendre que le phototransistor 
soit éclairé pour stopper le 
comptage, 
* recommencer le processus si 
on arrive en fin de trame sans 
que le crayon n'ai reçu de 
lumière, 
contrôler que le crayon se 
retrouve bien dans l'ombre 
après le passage du spot. Si tel 
n'est pas le cas, le crayon était 
éclairé par la lumière ambiante, 
* contrôler simultanément le 
clavier pour que l'utilisateur 
puisse l'utiliser à son gré. 
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MENU PRINCIPAL 


Um Crayon Oplique 


Clhristiam lPiardl 


INITIALISATION 


CREATION 


MODIFICATION 


ANNULATION 


CONSULTATION 


IMPRESSION 


FIN DE LA DEMONSTRATION 


Sur le //c, on en peut plus se 
référer au changement de valeur 
de l'octet $C019. Un interruption 
peut être générée à chaque début 
de trame, mission confiée à la 
carte souris. La routine installe en 
premier lieu le vecteur 
d'interruption puis exécute une 
boucle en attendant la première 
d'entre-elles (une à chaque 60ème 
de seconde). Le reste du 
traitement est similaire. 

Un test permet au début de la 
routine de savoir si on se trouve 
sur l'un ou l'autre des 
ordinateurs. 


Utilisation du 
programme 


Charger depuis votre programme 
Basic la routine : 

PRINT CHR$(4)"BLOAD CRAYON,A3812 
7 

À chaque utilisation du crayon, 
faire : 

CALL 38127 

Sur le //e, la routine étant 
relogeable, il suffit de faire : 

CALL adresse de chargement 

Sur le //c il faudra réassembler à 
l'adresse choisie ou, sous 


ProDOS, utiliser le relogeur d'A. 
Avrane. 





Après cet appel, dans l'octet 6, 
vous disposez de la position 
verticale du crayon, entre 0 et 23. 
Si cet octet est à 255, l'utilisateur 
s'est servi du clavier et vous 
trouvez le code de la touche dans 
l'octet 7. Ceci est illustré dans le 
programme DEMO. 


Comme dans le programme de 
démonstration, réservez une zone 
en vidéo inverse sur chaque 
option pour que le phototransistor 
réagisse efficacement. 

Ce programme peut fonctionner 
sous ProDOS sur l'un et l'autre 
appareil. 


Réalisation 
pratique 


Le hardware (!!) se résume à : 


* trois résistances qui laissent 
l'entrée logique 0 (équivalent à 
la &) à O, 

* un phototransistor qui, en se 
saturant à la lumière porte cette 
entrée à 1. 


Le phototransistor — dont le type 
n'est pas critique — sera installé 
dans un tube opaque. Quant aux 
résistances, elles trouveront leur 
place dans la prise reliée au 
connecteur poignée de jeu. 
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[D 1 1,2 . . La = = 
L'incompatibilité se faisant sentir Récapitulation 9558- 08 58 24 08 10 FC 78 A9 
à ce niveau là également, l'une ‘CRA YON’ 9560- 00 AO 12 20 DE 95 58 60 
des résistances est ajustable car le 9568- 78 A5 FE 85 19 A5 FF 85 
seuil de déclenchement de l'entrée Après avoir saisi ce code sous 9570- 1A A5 45 85 1B 86 1C 84 
différe sensiblement selon les moniteur, vous le sauvegarderez par : 9578- 1D A9 00 AO 12 20 DE 95 
appareils. Pour la régler, exécutez  BSAVE CRAYON, ASS4EF, L$111 9580- A0 13 20 DE 95 90 06 20 
le programme suivant : 9588- F1 95 4C EB BF A9 00 85 
94EF- AD 9590- 06 85 07 85 08 AO 06 A2 
PO PRINT FSER (43899) 94F0- CO FB FO 4A 2C 00 CO 30 9598- E3 CA DO FD 88 DO F8 A2 
#e SORT SE 94F8- 38 2C 61 CO 10 F6 A9 00 95A0- 1E 2C 00 CO 30 2A 2C 61 
9500- 85 06 85 07 2C 19 CO 30 95A8- CO 30 17 CA DO F3 E6 06 
Réglez-la pour obtenir les valeurs 2508- FB 2C 15 CO 10 FB A2 IE 95B0- A5 06 C9 18 90 E9 A9 08 
supérieures à 127 (généralement 9510- 2C 00 CO 30 1C 2C 61 CO 95B8- A0 12 20 DE 95 20 F1 95 
on obtient 160) puis revenez en 9518- 30 OC CA DO F3 E6 06 2C 95C0- 58 40 A2 20 CA DO FD 2C 
amère légèrement pour obtenir 252- La Do ro 2c 61 CO 90 C4 S5D0- 2C 10 60 AD 00 CO 85 07 
des valeurs inférieures ou égales 9530- 60 2C 10 CO AD 00 CO 85 95D8- A9 FF 85 06 DO EE 48 A2 
à 127 (généralement 32), le tout,  536- 07 ao rr 85 06 60 78 A9 95E0- 00 86 FE A2 C4 86 FF B1 
crayon à l'ombre. 9540- 68 8D FE 03 A9 95 8D FF 95E8- FE 85 FE A0 40 68 6C FE 
«: 9548- 03 AO 19 20 DE 95 A9 08 95F0- 00 A5 19 85 FE A5 1A 85 
9550- A0 12 20 DE 95 A9 00 85 95F8- FF A4 1D A6 1C A5 1B 60 
6 s 
Sour ce T. CRA YON 43 INC COMPT Chronomètre 
. 44 BIT VBL jusqu'à fin 
Assembleur Big Mac 45 BMI SO0E balayage 
46 BPL DEB 
1 ORG S$9600-273 47 ECLAIRE à 
2 COMPT = $6 48 LDX #$20 Crayon de nouveau 
3 TOUCHE = $7 49 ECE DEX à l'ombre ? 
4 DRAP = $8 50 BNE ECE 
5 SAVE = $19 51 BIT CRAYON 
6 SAVA = $1B 52 BMI DEB Non = parasite 
7 SAVX = $1C 93 RTS Oui = fini 
8 SAVY = $1D 54 
9 ACC = $45 55 CLAVE BIT $CO010 Vide clavier 
10 ADR _ $SFE 56 LDA KBD Sauvegarde carac- 
11 VECT = $3FE Vect interruption 57 STA TOUCHE tère et met 
12 VBL = $C019 Vidéo sur //e 58 LDA #$FF compteur à $FF 
13 CRAYON = $C061 Entrée logique 0 59 STA COMPT 
14 KBD = $C000 Clavier 60 RTS 
19 61 
16 LDA $FBCO //ce où //e ? 62 ITC SEI Mise en place 
27 BEQ IIC 63 LDA #<INTER du vecteur 
18 DEB 64 STA VECT d'interruption 
19 BIT : KBD On attend une touche 65 LDA #>INTER 
20 BMI CLAVE au clavier 66 STA VECT+1 
21 BIT CRAYON ou que le crayon 67 
22 BPL DEB soit à l'ombre 68 LDY #$19 Initialise souris 
23 69 JSR SOURIS 
24 LDA #0 Initialise 70 LDA #8 En mode interrupt 
25 STA COMPT compteurs 71 LDY #$12 vidéo autorisées 
26 STA TOUCHE 72 JSR SOURIS 
27 73 LDA #0 Initialise drapeau 
28 E1E BIT VBL Attend fin du 74 STA DRAP 
29 BMI EIlE balayage vidéo 75 CLI 
30 E2E BIT VBL en cours puis 76 BCL 
31 BPL E2E début du suivant Là BIT DRAP On boucle en 
32 78 BPL BCL attendant interrupt 
33 S0E 79 SEI 
34 LDX #$1E temporisation 80 LDA #0 Remet souris en 
35 SO00E 81 LDY #$12 inactif 
36 BIT KBD Attend une touche 82 JSR SOURIS 
37 BMI CLAVE au clavier 83 CLI 
38 BIT CRAYON ou que le crayon 84 RTS 
39 BMI ECLAIRE soit éclairé 85 
40 DEX 86 INTER 
41 BNE SO0E boucle 87 SEI 
42 88 LDA ADR Sauvegarde des 
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89 STA SAVE registres 161 RESTREG 












90 LDA ADR+1 162 LDA SAVE Restaure les 
91 STA SAVE+1 163 STA ADR registres 
92 LDA ACC 164 LDA SAVE+1 
93 STA SAVA 165 STA ADR+1 
94 STX SAVX 166 LDY SAVY 
95 STY SAVY 167 LDX SAVX 
96 LDA #0 168 LDA SAVA 
97 LDY #$12 Souris inactive 169 RTS 
98 JSR SOURIS 
99 LDY #$13 Interr pour nous ? 
100 JSR SOURIS 
101 BCC SUITE Oui = on la traite 
102 JSR RESTREG Non = on restaure 
103 UMP  $BFEB et on repart 
104 SUITE LDA #0 Initialise 
105 STA COMPT les compteurs 
106 STA TOUCHE 
107 STA DRAP 
108 LDY #6 
109 BO LDX #$E3 Attend que le 
110 B1 DEX premier point = Î 
111 BNE B1 de l'écran Broche 2 = +5SV, 
112 DEY soit allumé broche 3 = OV, 
113 BNE BO broche 7 = entrée de jeu ($C061) : É 
H H 
ve Lu Pate FREE Sur le connecteur interne du //e, : À 
116 BIT KBD la broche 2 est la 1, : TIL 81 
117 BMI CLAV Surveille clavier la broche 3 est la 8, : 
118 BIT CRAYON et crayon là broche 7 est la 2. : 279 
129 BMI ECLAIR Ê 
120 DEX 
121 BNE S00 
122 Programme ‘DEMO’ 
123: INC COMPT On compte de 0 
124 LDA COMPT à 23 maximum | 
125 CMP #24 5 PRINT CHR$ (4) "BLOADCRAYON, A38127 
\ 126 BCC SO 6 HIMEM: 37888: REM ProDOS page entière 
127 S000 10 DATA INITIALISATION, CREATION, MODIFICA 
128 LDA #8 TION, ANNULATION, CONSULTATION, IMPRESSIO 
129 LDY #$12 Souris active pour N,FIN DE LA DEMONSTRATION 
1 130 JSR SOURIS nouvelle interrupt 11 FOR I = 1 TO 7: READ M$(I): NEXT 
131 JSR RESTREG 90 REM --------- 
132 CLI 
133 RTI 100 HOME : PRINT "MENU PRINCIPAL 
134 110 FOR I = 1 TO 7: VTAB 2 * I + 4: PRINT 
135 ECLAIR SPC( 3);: INVERSE : PRINT " "I" ";: 
136 LDX #520 Crayon de nouveau NORMAL : PRINT " "M$ (I): NEXT 
137 EC DEX à l'ombre ? PL REM séssenbese 
139 BIT CRAYON 120  CALL 58127 
140 RMI S000 130 CHOIX = ( PEEK (6) - 3) / 2 
141 FIN DEC DRAP 140 IF PEEK (6) = 255 THEN CHOIX = PEEK 
142 BMI S000 (7) - 48 
143 150 IF CHOIX < 1 OR CHOIX > 7 THEN 120 
144 CLAV BIT $CO010 Garde caractère 160 (ON CHOIX GOTO 200,200,200,200,200,200 
145 LDA KBD , 300 
- : : ns RE nor 200 HOME : PRINT " OPTION "M$(CHOIX)" ": 
148 STA COMPT VTAB 20: INVERSE : PRINT " RETOUR ": N 
149 BNE FIN Di ci 
150 SOURIS 210 CALL 38127: GOTO 100 
151 PHA Cherche dans la 300 VTAB 20: PRINT "OK POUR FINIR ? ";: I 
152 LDX #0 table en $C400 NVERSE : PRINT " OUI ": VTAB 22: POKE 
153 STX ADR l'adresse réelle de 36,16: PRINT " NON ": NORMAL 
154 LDX #$C4 la routine désirée 310 CALL 38127: ON PEEK (6) = 19 OR PEE 
155 STX ADR+1 puis on K (7) = ASC ("O") GOTO 320 
156 LDA (ADR),Y y fait un saut 
157 STA ADR 315 - IF PEEK (6) < > 21 AND PEEK (7) < 
158 LDY #$40 > ASC ("N") THEN 310 
159 PLA 316 VTAB 20: CALL 64578: GOTO 120 
160 JUMP (ADR) 320 HOME : END 
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Micro-informations 


Jean-Michel Gourévitch 


Bouleversement dans le paysage 
de la micro. Alors que les 
résultats d'IBM s'effritent, voici 
que ceux d'Apple connaissent un 
ciel de plus en plus bleu. II se 
serait même vendu en août plus de 
Macintosh que d'IBM PC-AT. Le 
Macintosh Plus a incontesta- 
blement dopé Apple. 


Tandis que se profilent les livraisons de 
l'Apple IIGS, et que les Macintosh 
ouverts connaissent semble-t-il quelques 
retards (on ne parle plus de sortie avant 
le mois de mars), les Macintosh actuels 
se vendent particulièrement bien. Aux 
États-Unis, il faut dire que la baisse de 
prix (baisse de 200 dollars sur le 512Ko 
et de 400 dollars sur le Plus) n'est 
sûrement pas étrangère à ces succès. En 
France, où les baisses de prix sont 
rarement à l'ordre du jour chez Apple, 
on compte déja 55000 Macintosh 
vendus, dont 30% dans les “grands 
comptes” qui boudaient ostensiblement 
le Macintosh depuis ses débuts. À ces 
bons résultats, probablement trois 
raisons : d'abord l'arrivée du Macintosh 
Plus avec son interface SCSI, qui fait 
plus “sérieux” que le Macintosh 512Ko 
sans sortie pour disque dur ; ensuite, le 
rapprochement de l'univers MS-Dos, 
qu'il s'agisse de l'intégration du 
Macintosh dans des réseaux où se 
trouvent déjà des PC (par exemple avec 
le réseau TOPS) ou de l'échange de 
fichiers entre les Macintosh et les PC. 
Et, enfin, le ‘boom’ de l'édition 
personnelle. Ce que les Américains 
appellent le “desktop publishing” et 
qu'on a baptisé chez nous du nom 
barbare d'éditique ou de PAO 
(publication assistée par ordinateur). Un 
grand nombre d'entreprises se sont 
avisées qu'elles pouvaient réaliser 
elles-mêmes, et dans leurs locaux, des 
documents qu'on devait auparavant 
confier à un imprimeur. Il vient ainsi de 
s'ouvrir un tout nouveau marché qu'on 
n'avait pas imaginé auparavant, et qui 
s'avère être “juteux”. IBM, qui s'y 
intéresse de près, a donc annoncé une 
version spéciale de son micro 
scientifique : le PC-RT, spécialisé dans 
les tâches d'édition. En attendant, Apple 
dispose avec le Macintosh d'une 
confortable avance sur ce marché-là. 


PAO à gogo 


Rien d'étonnant si les programmes 
d'édition électronique se multiplient. 
Aux “Page Maker” et autres 
“MacPublisher” (dont il vient de sortir 
une nouvelle version), il faut désormais 
ajouter Graphic Works de Mindscape, 
un véritable programme intégré 
comprenant un traitement de texte, un 
logiciel de dessins sophistiqué avec 
aérographe à pressions réglables, et la 
possibilité de mélanger textes et 
graphiques. Prix : 80 dollars. Ragtime 
d'Orange Micro, autre intégré d'édition 
nanti d'un traitement de texte avec 
colonnes multiples, possibilité de 
mélanger des styles et tailles, de créer 
des cadres de styles différents. On peut 
aussi ‘exploser’ un document pour 
accéder simultanément à neuf sections 
de ce document. En prime, on dispose 
d'un tableur. Enfin, PS Compose de PS 
Publishing à usage professionnel permet 
de choisir des niveaux de gris et de 
transcrire un texte en langage de 
composition. Il fonctionne avec des 
imprimantes utilisant le langage 
Postcript comme la LaserWriter, (Prix 
1000 dollars) mais aussi avec des 
systèmes de composition de 
Compugraphic ou d'Allied Linotype (le 
prix est alors de 2000 dollars). 


Est-ce un traitement de texte 
ultra-sophistiqué ou bien un système de 
mise en page ? Les nombreuses 
fonctions de Writer Plus d'ACI 
permettent de l'utiliser indifféremment 
pour ces usages. À remarquer parmi les 
avantages : la possibilité de stocker par 
thèmes des paragraphes souvent utilisés 
et de les rappeler, la faculté de stocker 
par thèmes des images, la permutation 
automatique de deux caractères (pratique 
pour corriger une faute de frappe), la 
césure automatique qui divise un mot 
sur une syllabe et pose un tiret pour tout 
mot arrivant en fin de ligne, des 
statistiques fournissant le nombre de 
signes, de mots, de paragraphes et 
d'images d'un texte ou d'une partie de 
texte, le cadrage d'un texte, l'équilibrage 
des colonnes, la gestion des niveaux 
d'un texte avec génération automatique 
d'un sommaire, le calcul entre plusieurs 
cellules dans un texte, la numérotation 
des notes, etc. C'est vrai qu'il est 
difficile de construire un programme 
pour le Macintosh. Et, apparemment, 
plus le programme est inventif, plus le 
‘debuging’ est difficile. Au début 


novembre, Writer Plus était ainsi encore” 
affligé de plusieurs ‘bugs’, qui auront 
certainement disparu dans la version qui 
sera mise en vente. 


En attendant, la concurrence s'annonce 
déjà difficile. Avec notamment Write 
Now, développé par Solaster Inc 
(société acquise par Steve Jobs, le 
fondateur d'Apple) et distribué outre 
Atlantique par T/Maker. Write Now 
comporte lui aussi la possibilité d'écrire 
en colonnes (jusqu'à 4 par page) de 
contrôler l'écart intercolonnes en points. 
On peut aussi y mélanger textes et 
graphiques, changer les dimensions 
d'une image sans qu'elle se distorde, 
contrôler l'interlignage de façon précise. 
Le traitement de texte est évolué, avec 
notamment une possibilité d'ajouter des 
notes avec numération automatique. Ce 
traitement de texte très rapide utilise bien 
évidemment lés fichiers de Macwrite ou 
de Word et comprend dans sa version 
américaine un correcteur orthogra- 
phique. Il sera vendu 175 dollars. 


Mini-Macintosh, 
maxi-prix 


Il ne manque plus qu'un Macintosh 
portable pour compléter la gamme. 
Certains constructeurs essaient de 
renouveler le coup fait par Compaq à 
IBM en présentant le premier PC 
portable. Cette fois, c'est plus dur car, 
compte tenu du fait qu'Apple reste 
l'unique source de production des ROM 
et du système du Macintosh, il faut 
obligatoirement passer sous ses 
fourches caudines, ou se borner à 
acheter des Macintosh, puis à les 
recarosser, ce qui fait allègrement 
grimper la facture. Il y a quand même 
des volontaires. 


Parmi eux, Colby, qui avait déjà 
présenté de nombreux Macintosh 
recarrossés, qet espère présenter un 
portable comprenant outre les éléments 
d'un Macintosh Plus avec lecteur de 
800K, un écran plat au plasma de 12 
pouces, un disque dur intégré de 20 
Mégas et la possibilité de fonctionner 
sur batteries. Prix de 5000 à 7000 
dollars. À remarquer encore le Dynamac 
de Dynamac Computers, un portable 
style Papman lui aussi avec disque dur 
incorporé et écran plat électrolumi- 
nescent. Prix de 4500 à 5000 dollars. 
Enfin, le MX Plus d'Intelitec, à écran 
electroluminescent, de la taille de l'écran 
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du Macintosh, avec modem et disque 
dur incorporé, possibilité de fonction- 
nement sur 12 volts. Prix : 5 à 7000 
dollars, pour un ordinateur installé dans 
un attaché case tout aluminium. Devant 
tous ces projets, une seule question : 
Apple sous traitera-t-il son Macintosh 
portable pour le sortir plus vite ? Ou 
bien tous ces fournisseurs devront-ils 
rengainer leurs projets pour laisser à la 
firme à la pomme le monopole jusqu'à 
présent inentamé de la construction du 
Macintosh ? Réponse probablement 
l'année prochaine. 


Logiciels : 
encore du génie 


Lorsqu'on écrira un jour l'histoire de la 
micro-informatique, il faudra à coup sûr 
créditer le Macintosh d'un pas important 
réalisé dans l'intelligence des pro- 
grammes. Quelques preuves ? D'abord 
More, la dernière version du traitement 
d'idées Think Tank. Ce logiciel 
permettant de générer automatiquement 
un plan, un organigramme, ou des 
encadrés pour présentation audiovisuelle 
est sans concurrence pour préparer un 
article, concevoir un livre, ou penser à 
une conférence. Ses multiples perfec- 
tionnements (possibilité de regrouper, 
de promouvoir ou de rétrogader les 
parties d'un texte, de datage ou 
d'horodatage, puis de présentation) ont 
bien mérité de la cause de la 
micro-informatique. C'est simplement 
génial. 


Autre logiciel illuminé : VIP, distribué 
par P-Ingéniérie. Il s'agit simplement 
d'un langage de programmation gra- 
phique. Plus besoins d'écrire des 
“GOTO” ou des tristounets “IF THEN 
ELSE” : on clique simplement sur des 
icônes, ou on utilise des menus 
déroulants. On peut ainsi appeler 
directement les procédures de la 
“Toolbox” ces morceaux de 
programmes inscrits dans les ROMs du 
Macintosh permettant, par exemple, 
d'ouvrir une fenêtre à l'écran. Une fois 
composé, le programme est représenté 
par un schéma affiché à l'écran. Le 
programme peut être visualisé, modifié, 
exécuté en mode normal ou en pas à 
pas. Une version “pro” permettant de 
gérer des variables locales ou le “list 
manager” sera bientôt disponible. Tout 
comme des bibliothèques délivrant du 
code source en "C" ou en Pascal. 


Est-ce un système de gestion de bases 
de données ? Oui, d'une certaine façon. 
Est-ce un logiciel de traitement d'idées ? 
Oui aussi. Guide d'OWL International 
se présente comme “le premier système 
d'hypertexte” ce qui ne veut strictement 
rien dire. Plus simplement, ce logiciel 
permet d'établir des textes ou des 
graphiques et de créer entre eux des 
systèmes de références croisées. En 
cliquant sur une partie d'un dessin, on 
voit ainsi s'ouvrir à l'écran le texte ou la 
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partie de dessin correspondante. 
Gageons qu'on entendra reparler de ce 
logiciel vendu 100 dollars. 


Et puisqu'Unix est le système à la 
mode, voici déjà aux États-Unis Macnix 
distribué par Eurosoft International, qui 
transforme un Macintosh en station de 
travail Unix, en le reliant à un ordinateur 
‘hôte’ fonctionnant sous ce système. 
Avantage : Unix fonctionne alors avec 
tous les avantages graphiques du 
Macintosh (fenêtres, icônes, possibilité 
de recevoir un fichier en transférant 
l'icône de la fenêtre Unix sur la fenêtre 
du Macintosh, etc.). À remarquer que ce 
logiciel, qui pourrait constituer une étape 
importante dans la stratégie logicielle 
d'Apple, travaille avec les versions Unix 
System V et 4.2 BSD, ce qui lui permet 
d'être relié à des stations de travail Sun, 
Sun 2 et Sun 3, à des Vax de Dec, à des 
PC-AT et compatibles. Prix : de 600 
dollars (version pour 2 utilisateurs) à 
10000 dollars (nombre d'utilisateurs 
illimité). 


Logiciels : 
des perfectionnements 


À remarquer que la dernière version du 
programme de dessin Full Paint, le 
successeur de MacPaint, permet 
d'imprimer en couleurs sur l'imprimante 
Image writer IL À noter aussi un 
nouveau langage de programmation en 
C : le Lightspeed C de Think 
Technologies. Ce langage particuliè- 
rement rapide comprend un éditeur de 
texte multi-fenêtres, un compilateur, un 
éditeur de liens et des utilitaires de 
programmation. Prix : 175 dollars. 


Pour les architectes, Space Edit, écrit 
par l'auteur de Macintosh Space et 
distribué par Abvent, est un logiciel 
français de CAO avec objets volumiques 
combinables, bibliothèques de 
composants en trois dimensions, 
perspectives faces cachées, calques 
superposables, etc. Prix : 7000 Francs. 
Toujours distribué par Abvent, Slide 
123 permet la réalisation sur le 
Macintosh de dossiers de permis de 
construire de maisons individuelles, 
avec notamment l'établissement des 
calculs de surfaces. La sortie imprimante 
est réalisée à l'échelle requise par 
l'administration : 1cm par mètre pour les 
plans et façades et le plan Masse. Prix : 
7000 Francs. 


Des Macintosh 
dans les labos 


Avec l'entrée possible du Macintosh 
dans les usines (décrite ici dans le 
dernier numéro de Pom's), son irruption 
dans les laboratoires n'a pas fini de faire 
du bruit. Dans un article consacré aux 
logiciels spéciaux, la revue Mac World 
de septembre recense notamment des 
programmes permettant de reconstruire à 


‘l'écran les 


molécules d'ADN 
recombinant : c'est DNA Inspector de 
Textco. ChemDraw de Stewart 
Rubinstein est un outil de dessin pour 
chimistes, Labview de National 
Instruments Corporation permet de relier 


le Macintosh à des instruments et de les 
contrôler à l'écran du Macintosh : 
l'interface se réalise par un bus IEEE 
488. Macintosh ADIOS de GW 
instruments permet de faire fonctionner 
le Macintosh en analyseur spectogra- 
phique, voltmètres à huit canaux, ou 
d'émuler un oscilloscope à basse 
fréquence. À remarquer toujours dans le 
même domaine : Designscope de Brain 
Power, un instrument de simulation de 
circuits électroniques, à utiliser avant de 
construire matériellement un circuit. 
D'autre part, Stella, un outil pour 
améliorer les processus de productivité 
permet aux chercheurs de construire des 
modèles logiques pour réaliser des 
simulations. Qu'il s'agisse d'optimiser 
des quotas de lignes de production ou 
d'étudier les effets écologiques de la 
pollution par les gaz d'échappements 
des automobiles. Par ses possibilités 
graphiques et de calculs, le Macintosh 
devrait bientôt pénétrer en force dans les 
laboratoires. Une irruption facilitée par 
l'entrée dans la vie active de nombreux 
étudiants qui l'utilisent depuis déjà 
plusieurs années. 


Hard 


Le génie souffle aussi sur le matériel. 
Ainsi, voici (hélas seulement pour 
l'instant aux États-Unis, et en 110 volts, 
mais on peut rêver), un système 
permettant de contrôler avec l'ordinateur 
tous les interrupteurs et tous les 
systèmes électriques d'une maison. De 
quoi, par exemple, faire couler 
automatiquement un bain chaud à heure 
fixe, réchauffer une pièce juste avant le 
retour du bureau, allumer ou éteindre 
automatiquement l'éclairage. Oui, mais 
je vous vois venir, à quoi bon, 
allez-vous me dire mobiliser un 
micro-ordinateur du prix d'un 
Macintosh pour servir de 
programmateur électronique ? Eh bien la 
nouveauté du système X 10 
Powerhouse de X 10, c'est que le 
Macintosh sert simplement à 
programmer un petit boîtier de 
commande. On commence par réaliser 
un plan de sa maison avec les circuits 
électriques sur un logiciel de style 
MacPaint. On relie le boîtier au 
Macintosh, on programme les heures de 
mise en action en cliquant sur les 
interrupteurs sur le plan du Macintosh, 
et en répondant aux questions dans les 
fenêtres qui s'ouvrent. On peut ensuite 
enlever le boîtier et le connecter au 
système électrique. A l'heure dite, les 
interrupteurs électriques seront 


commandés. Le module de commande 
avec câble de liaison au Macintosh et 
logiciel coûte 80 dollars, les modules 





nécessaires pour commander chaque 
appareil électrique 20 dollars chacun. 


Pour ceux qui ne disposent que d'une 
Imagewriter I, voici un introducteur 
feuille à feuille permettant d'éviter le 
papier perforé.-Il coûte moins de 2000 
Francs et est vendu par Eudimed. 


Disques durs SCSI 


A noter d'abord que le premier 
Hyperdrive externe (le FX 20) est 
disponible chez P-Ingéniérie pour 15300 
F avec ses logiciels de “spool” 
imprimante, de protection des fichiers et 
de sauvegarde incrémentale sur 
disquette. Chez International Computer, 
on trouve pour quelques 12000 Francs 
l'IC 20, lui aussi d'une capacité de 20 
Mégas. Les lecteurs de Pom's se 
souviendront peut-être de nos prévisions 
sur la baisse de prix des disques durs. 
Voici, pour eux, le premier disque dur 
externe SCSI de 20 Mégas disponible 
pour moins de 600 dollars. C'est celui 
vendu par Jasmine Computer. Combien 
de temps faudra t-il pour arriver à ce 
prix en France ? Moins d'un an ? 


L'Apple // 
en vedette 


L'Apple // est en vedette américaine. 
Avec, d'abord le IIGS qui est enfin sorti 
avec une moisson de programmes 
nouveaux pour la gamme Apple //. Son 
prix et ses possibilités devraient le 
réserver dans un premier temps aux 
marchés de l'éducation. Des traitements 
de texte? Voici Multiscribe de 
Styleware, très ressemblant à Macwrite 
avec menus et polices de caractères 
modifiables, utilisation de la souris, et 
un prix de 60 dollars. Voici encore 
Paperclip de Batteries Included, avec 
toutes les fonctions de recherches, les 
en-têtes et bas de pages automatiques, 
une vision sur l'écran du document tel 
qu'il sera imprimé. Voici un nouveau 
tableur style Macintosh utilisant la souris 
: VIP professional de ISD Marketing 
avec 8192 rangs sur 256 colonnes, une 
mémoire utilisable de 4 Mégas, un 
grapheur et un langage de macros 
comme Lotus 1 2 3. Prix : 250 dollars. 
Voici encore la dernière version d'un 
simulateur de vol : Jet, réalisé par 
Sublogic l'auteur du célébrissime Flight 
Simulator qui vous place au commande 
d'un avion à réacteur, avec vue de 
l'extérieur, décollage d'un porte avion, 
etc. Et si on se plante ? Alors, voici 
Wilderness d'Electric Transit. «Que 
faire après que vous vous soyez crashé 
avec le Flight simulator ?» demande la 
publicité. Utiliser Wilderness : un jeu de 
survie dans la jungle. 


Améliorer le // 
Faut-il abandonner son // ? Il sera 


probablement possible de le mettre au 
niveau du GS. Un kit sera disponible 
l'an prochain, mais pour un prix 
d'environ 1000 dollars. C'est que ce kit 
comprend une nouvelle carte logique, 
256Ko de RAM. Le clavier et la souris 
sont vendus en supplément (pour ne pas 
nuire à ceux qui avaient déjà acheté une 
souris pour leur //e). 


En attendant, voici bizarrement que 
sortent de nouveaux accessoires pour 
améliorer le // dans les domaines où le 
GS prime. Ce sont notamment la carte 
Yess de Yam Educational, permettant de 
transformer le // en piano électronique, 
et le Phasor, d'Applied Engineering, 
une carte synthétiseur avec 4 voies 
stéréophoniques, 12 canaux simultanés, 
4 générateurs de bruit blanc, etc. Prix : 
179 dollars. 


Déjà des nouveautés 
pour le Ilcs 


A peine est-il sorti que voici déjà des 
logiciels et du matériel pour le GS. Côté 
logiciels, remarquons les trois pro- 

mes de Version Soft : un traitement 
de texte : GS Write, très semblable à 
Macwrite, mais avec la possibilité 
d'ouvrir jusqu'à 16 documents, un 
programme de dessin GS Paint 
(MacPaint avec de la couleur !) et un 
programme de communication : GS 
Com. Ces produits ont été achetés par la 
firme Activision qui compte en écouler 
75000 aux États-Unis. On recense 
encore des programmes de publication 
assistée par ordinateur : Opus de Quark, 
Pager de Megahaus, et Front Page de 
Broderbund. TML a un compilateur 
Pascal, Electronics Art a adapté Deluxe 
Paint, son programme de dessin déjà 
vendu pour l'Amiga. Broderbund va 
améliorer pour le GS les programmes 
Print Shop et Fantavision. On parle 
même d'un logiciel intégrateur façon 
switcher baptisé Carrousel. 


Sur le front des accessoires, on 
remarque un disque dur de 20 Mégas et 
une carte de 1 méga-octet de disque 
virtuel d'AST. Une carte d'extension 
mémoire pouvant contenir 4 Mégas, le 
RamPak4 GS d'Orange Micro et une 
carte interface parallèle : le ProGrappler. 
Orange Micro propose même un des ces 
accessoires avec un ventilateur et prises 
supplémentaires qui permettent de 
rendre bruyants des ordinateurs 
lue me ie silencieux. Applied 

ngineering a déjà concocté deux cartes 
d'extension : la GS Ram (1,5 Méga 
octets sur la carte) et la GS Ram Plus 
(jusqu'à 6 Mégas). 


L'Apple // GS est ouvert. Grand ouvert. 
On va voir déferler les accessoires. Les 
imaginations et les fers à souder n'ont 
pas fini de chauffer dans la Silicon 
Valley. 


Adresses 


Mindscape Inc - P.O. Box 1167 
Northbrook - IL 60065 

Orange Micro - 1400 n Lakeview Ave 
Anaheim - CA 92807 

PS Publishing - 290 Green St San 
Francisco - CA 94133 

ACT - 6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 43 59 89 55 


T/Maker - 1973 Landings Drive 
Mountain - View CA 94043 
P-Ingéniérie - 226, bd Raspail 

75014 Paris - Tél. : 43 21 93 36 

OWL International - 14128 NE 21st 
Street Bellevue - WA 98007 

Think Technologies - 420 Bedford St 
Lexington - MA 02173 

Abvent - 53, avenue de Breteuil 

75007 Paris - Tél. : 47 34 43 98 
Textco - 27 Gilson Rd West Lebanon 
NH 03784 

Stewart Rubinstein - 77 Sacramento St 
n° 11 - Somerville MA 02143 

National Instruments - 12109 
Technology Bd Austin - TX 78727 
GW Instruments - PO Box 547 
Cambridge - MA 02142 

Brainpower - 24009 Ventura Bd 
Calabasas - CA 91302 

High Performances Systems 

13 Darmouth College Hwy Lyme - NH 
03768 

X 10 - 185 A Le Grand Ave Northvale, 
NJ 07647 

Eudimed - 98, bis bd de la Reine 
78000 Versailles - Tél. : 39 02 15 30 
Jasmine Computer Systems 

PO Box 1119 Mountain View - CA 
94042 

Styleware - 6405 Hillcroft, Suite 201 
Houston TX 77081 

Batteries Included - 30 Mural St 
Richmond Hill - Ontario Canada LAB 
1b5 

ISD Marketing - 20 Steelbase Road Unit 
12 Markham Ontario Canada - L3R 1B2 
Electric Transit - 501 Marin Street suite 
116 - Thousand Oaks, CA 91360 

Yam Educational Software 

2028 El Camino Real San Mateo - CA 
94403 

Applied Engineering - PO Box 798 
Carrollton - TX 75006 


G 


Collaborateur de Pom's vend à l'état 
neuf, un lecteur 140Ko //c (1700,00 F), 
un moniteur //c (1100,00 F), un stand //c 
(250,00 F), une housse //c (375,00 F), 
un joystick //e-//c (375,00 F) et un 
manuel de référence //e (250,00 F). 
Écrire à la rédaction qui transmettra. 
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Alexandre Duback 


AppleWorks au travail 

par Alain Gargadannec et 
Jean-Michel Jego 

Éditions du PSI - 160 FF. 


Cet ouvrage est composé de trois 
parties : Découverte de la base de 
données, du traitement de texte et 
du tableur - Plus loin avec la base 
de données et le tableur - 
Intégration avec AppleWorks. 
Bien écrit et agréablement 
présenté, il nous emmène à la 
maîtrise du logiciel, grâce à des 
applications destinées aux PME, 
artisans et commerçants (paye, 
facturation). 


Il est utile, surtout pour les 
non-informaticiens et les “vilains” 
possédant une version piratée. Le 
principal intérêt de ce livre est de 
nous entraîner au-delà de la 
simple utilisation du programme 
(ce qui est facile, AppleWorks 
étant un logiciel ultra-fiable, 
conversationnel et bien 
documenté part une fonction 
d'aide), en nous montrant 
jusqu'où vont les possibilités de 
ce logiciel intégré, c'est-à-dire les 
articulations entre ses trois 
applications. 

Ce livre ne s'adresse pas aux 
possesseurs de la version 
anglaise, dont les commandes ne 
sont pas les mêmes. 


Dictionnaire de 


micro-informatique 
par Éric Duceau et Christophe 
Doë - Cedic-Nathan - 191 pages. 


yeLudologic 
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Taquin, Noir & blac, hexagone magique, trois à 
jeux de réflexion de difficulté croissante. Ces # 
jeux qui nécessitent des neurones aussi calmesi 
qu'entraînés, ne devraient pas décevoir les : 
amateurs de puzzles et autres casse-têtes. 


Un livre clair, comportant de 
nombreuses illustrations et bien 
présenté. Les informations ne 
sont pas toujours exactes : ainsi, 
le langage de programmation 
Ada( et non A.D.A.) a été créé 
par Jean Ichbiah (et non Ichbiach) 
et, à la date de parution de 
l'ouvrage, il existe déjà de 
nombreux compilateurs, contrai- 
rement à l'affirmation de l'auteur. 
Un double lexique français/ 
anglais et anglais/français termine 
l'ouvrage. 


MacAstuces, Macintosh 
et Macintosh Plus, 


deuxième édition 
par Hervé Thiriez 
Éditions du PSI - 160 FF. 


Cette seconde édition de 
MacAstuces comporte une mise à 
jour, l'adjonction de nouvelles 
astuces d'utilisation du Macintosh 
et, surtout, une vingtaine de 
pages entièrement nouvelles et 
consacrées au Macintosh Plus. La 
disquette d'accompagnement peut 
être commandée aux Éditions 
MEV. 


Guide pratique d'Excel 
par Hervé Thiriez - Cedic-Nathan 
170 pages grand format. 


Un ouvrage de base pour 
l'apprentissage d'Excel, à l'aide 
de plusieurs cas de gestion 
réalistes. Le seul livre sur Excel 
qui, à notre connaissance, 











80,00 F franco, Bon de commande page 74 
(La disquette comprend les sources) 


Bibliographie 


indique quels sont les bogues du 
logiciel et comment les 
contourner. Une prise en main 
progressive et pédagogique, 
couvrant toute l'utilisation de 
base d'Excel, y compris le calcul 
de tables et la programmation de 
macros. De nombreuses astuces 
d'utilisation sont mises en relief 
et ressortent facilement grâce à 
une présentation en grisé. Une 
disquette d'accompagnement 
facultative comprend tous les 
tableaux de l'ouvrage, ainsi 
qu'une nouvelle police de 
caractères de taille 6, permettant 
de voir à l'écran un grand nombre 
de lignes et colonnes à la fois. 


Programming pearls 
par Jon Bentley 
Addison-Wesley - En anglais. 


C'est la reprise sous la forme 
d'un livre d'une série d'articles 
publiés dans Communications of 
then ACM, une sérieuse revue 
professionnelle pour informati- 
ciens. Une mine d'or pour les 
programmeurs, qui y trouveront 
de multiples astuces de 
programmation, des routines de 
tri et recherche, des idées sur la 
façon de structurer efficacement 
les données, des conseils sur la 
mise au point des programmes. 
Indispensable pour les 


programmeurs. ä 
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Bon de commande 


Disquettes 


(cf. Pom's n° 5) 
(cf. Pom's n° 11) 
(cf. Pom's n° 13) 
(cf. Pom's n° 23) 
(cf. Pom's n° 23) 
(cf. Pom's n° 15) 
MAX (Moniteur étendu) (cf. Pom's n° 18) 
DOMINOS (cf. Pom's n° 19) 
(cf. Pom's n° 21) 
(cf. Pom's n° 25) 
(cf. Pom's n° 26) 


Recueils 


N°1, recueil des revues 1 à 4 
Disquettes d'accompagnement 1 à 4 
N°2, recueil des revues 5 à 8 
Disquettes d'accompagnement 5 à 8 
N°3, recueil des revues 9 à 12 
Disquettes d'accompagnement 9 à 12 


Revues, disquettes 


Revues4 7 8 
Revues 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 2526 


Disquettes Apple II, //e, //e 


1/2: 31 4. 9 6 7,18, 9,10: 22: 19 
14 15 16 17 18 19 20 21 22 23 24 25 2627 


Disquettes Macintosh 
14/15/16 groupées 
17 18 19 20 21 22 23 24 25 2627 
Mac ‘A’ 
MacAstuces 
“Raccourci” 


Abonnements Pour 6 numéros à partir du n° 


Abonnement à la revue seule 
Abonnement revue + disquettes Apple I, //e, //c 
Abonnement revue + disquettes Macintosh 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 


Nom : 


Adresse : 


Imprimerie Rosay, 94300 Vincennes, Imprimé en France. Dépôt légal : Novembre 86, N° 3904 
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UTILISER 


Mac Astuces 450FF — Multiplan 
pour Macintosh 440 FF — Le livre de 
Jazz 220FF — 50 modèles Multiplan 
Apple 1195 FF — Les ressources de l'Apple pour gérer sur Apple et IBM/PC 430 FF — 
lc 95FF — Assembleur de l'Apple 420 FF — Appleworks au travail 460 FF — 
Introduction à ProDOS sur Apple 85 FF — Photographie sur Apple et Amstrad 450 FF. 
Système ProDOS sur Apple 

490FF — Programmation JOUER 

système de l'Apple Il 490 FF — DES LIVRES POUR 

Apple, modems et serveurs £ 402 programmes pour 
430 FF — Clefs pour l'Apple lie CREER Apple 420FF — Super jeux 


et lle 65CO2  145FF Apple 420FF 
Programmation des jeux d'Arcade sur 


Apple || 440FF — Apple, logique et 
systèmes experts 420FF — Création et 


animation graphique sur Apple 335 FF. EE, 
DEMANDER LE CATALOGUE GRATUIT à PS.I. Diffusion - B.P. 86 - 77402 LAGNY CEDEX 


PROGRAMMER 


Clefs pour Macintosch 450 FF — 
Basic Microsoft 2.0 sur Macintosh 
250FF — Basic + 80 routines sur 




























